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FACILITY: VAX/VMS MAIL UTILITY 
ABSTRACT: Subroutines to read and write message files. 


i ENVIRONMENT: NATIVE/USER MODE 

AUTHOR: Benn Schreiber, CREATION DATE: 22-Dec-1982 

! MODIFIED BY: 

v03-022 ROPOO031 Robert Posniak 02-AUG-1984 


Make sure do not copy deleted messages between 
folders during a COPY or MOVE command. 


v03-021 ROPO027 Robert Posniak 23-JUL-1984 
Change read cluster size from 127 to 32. 
v03-020 ROPO003 Robert Posniak 6-JUN-1984 


Check for oversized record. Fix COMPRESS 
command to strip version number when opening 

the newly” created file. Also, set the protection 
on the .OLD file so that the owner can delete it. 


v03-019 BLSO292 Benn Schreiber 8-APR-1984 
Pass accvios on in reclaim_handler 


v03-018 BLS0263 Benn Schreiber 4-F EB-1984 
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: rs p038 } Add COMPRESS command. Use LIBSFIND_IMAGE_SYMBOL 

: 60 0060 1: v03-017 BLS0255 Benn Schreiber 28-Dec-1983 
; 61 0061 1 } Cobal mail flags, sanitize flags to create_ ‘san, Add 

; § Bos 1! support for exec mode logicals in create. Sia. Don't quit 

3; § 0065 1! on errors when emptying wastebasket. "9 new message, 

>; 64 0064 1! clear new message flag and decrement ieun 4 ed before 

; 2? Boe2 : it was read). 
: 67 0067 1: v03-016 BLS0250 Benn Schreiber 8-Dec-1983 

; + Boos : } Ensure users mail file is a disk file. 

: 70 0070 1: VO3-015 BLSO246 Benn Schreiber 7-Nov-1983 

: 71 0071 1! Put new mail count in VMSMAIL. DAT. Confirm on non-existent 

ae bors oa folder creation. Remove check for uic ownership of external 

3 f, Baez : mail files. 
: 25 0075 1 v03-014 BLS0238 Benn Schreiber 1-Sep-1983 | 
: 76 0076 1! Check correct null parameter in mail$check "iis, also 

: a 9077 1 | reinit descriptor before each fao | 
: 79 0079 1: v03-013 BLS0237 Benn Schreiber 31-Aug-1983 

3 59 Boss : } Include end of file mark word in byte count. | 
: 82 0082 1 | v03-012 BLS0235 Benn Schreiber 23-Aug-1983 | 
; «83 0085 1! Have to read non-var files with $get's, since. there is 
ee - 1) 0084 1! no byte count. Do not set folder name if no messages found 
— oe 0085 1! when selecting messages. Filter trailing cr/Lf's in | 
; a6 poee } } mail$get_i_msg. 

: 88 0088 1 | vo3-011 BLs0229 Benn Schreiber 16-Jul-1983 | 
; 0089 1! New routines to handle new message count in mail file. 
; 0090 1! Correct way messages are deleted on MOVE command. Change 

; 0091 1! protection on external files and then $erase. This then 
: 5 ad) : requires no SYSPRV, and works over the net. | 
: 94 0094 1! v03-010 pu soca? Benn Schreiber 11-Jul-1983 | 
; +4 s'e4 : Remove system delete access from isam mail files. 

.. oF 0097 1 v03-009 BLS0224 Benn Schreiber 7=Jun-1983 

; 3 0098 1! Signal default folder not found in select_msgs, and 

; WW 0099 1! if /new, then 9° after default folder name, not mee 
: 100 0100 1! Sort messages add_message. Enable DFW accordin | 
: 19) 919) { MAILSB_DFW (off for how). Get rid of MAILSGET_FIL DESC. 
; 108 0108 1) v03-008 BLS0222 Benn Schreiber 7-May-1983 
3 ie Bige ! Modify reclaim operation to be automatic with” a message | 
; 106 0106 1! v03-007 BLs0221 Benn Schreiber 5-May-1983 
3 4 3424 ' Remove temp message if Serase fails | 
; 109 0109 1 | vO3-006 BLS0218 Benn Schreiber 18-Apr-1983 | 
: 110 0110 1! nhance check_date to also ensure file doesn’t exist 
3 1} Bits ! f optional 3fd dev/dir descr. is passed. 
: 118 o118 1 v03-005 8LS0217 Benn Schreiber 12-Apr-1983 | 
ls 196 0114 1! Count bytes of deleted space, rather than number of messages. 
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Correct signalling of CONVERT/RECLAIM errors. Tell | 
when new folder created with ig command. Add external 
messages (stored in another file) 
03-004 BLS0216 Benn Schreiber 1-Apr-1983 | 
Use old message date time when copying messages | 
v03-003 BLS0215 Benn Schreiber 31-Mar-1983 
Return ‘'TO'’ string from MAILSINFO. 1_MSG 
v03-002 BLS0214 Benn Schreiber 27-Mar-1983 


penere LASTREAD code. Implement new scheme of NEWMAIL 
andling. Handle locked info records. Add number of 
otro info in msg header. Correct quoted sender name 
perstes in MAILSINFO_I_MSG. Do not allow delete in waste 
asket folder. Tell”uSer if new folder created. Do _ 
update deleted msg count if number to add is 0. Corre 
handling of last message being deleted in MAILSF IND. I “nS. 
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ISAM MAIL MESSAGE SUBROUTINES 


TABLE OF CONTENTS: 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:L 1B"; 
REQUIRE ‘SRCS:MAILREQ'; 
LIBRARY *LIBS:MAILDEF*; 


FORWARD ROUTINE 
MAILSSELECT_MSGS; 


DELMSGCNT 
“RECL_THRESHOLD : 
MAILSB~MSGTRAN : BYTE; 


BIND 


MSGTRAN = MAILSB_MSGTRAN : BYTE; 


GLOBAL 
MAIL$Q_CURFOLDER : DYN_D 
MAILSQ_WASTEDESC : DYN7D 
MAI GMAX, 
MAILSL—NMSG 
MAILSL~CURMSG: REF $BB 
MAILSL~MSGTBL 


mm 
nm 
an 


EXTERNAL 
ite 


AyuICc 


C 
o . S$BBLOCK, 
MAILSQ"USERDEF : S$BBLOCK. 
MAILSL_MSG_NUM, 


NAME, 
MAGE_SYMBOL, 
_IO7ERROR, 


LOCK 
: REF VECTORC,LONG); 


‘Select messages 


‘Number deleted msgs 


LONG INITIAL(32768),!Threshold before reclaim done 


!Transition for get_i_msg 


'Descriptor of current folder name 
'String descriptor for wastebasket 


‘Maximum number of messages in vector 
in vector 


'Number of messages currentl 
‘Pointer to current message 
'Pointer to message vector 


lock 


' and address 

'My UIC from SYSUAF 

'My process pid : 
'Size of msg to externalize 
‘Descriptor of filename of mail file 
'True if should use FOP=DFW 

‘Mail control flags 
'*dev:CdirJmail.mai’ spec 
‘Default file spec 

‘Current msg number 

‘msg status 

‘Pointer to user record buffer 
‘sequential msg size 

'seq. msg addr 

‘Descriptor for username 

'RAB for reading input file 


‘Descriptor of currently open mail file 


‘Convert date/time 
‘Allocate virtual memory 
‘Write to SYSSOUTPUT 
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LIBSFREE VM 'Dealocate it 

$ LIBSRENAME FILE, 

8 Ss tethe RD 
MAILSCLOSE FILE, ‘Close msg file 
MAILSCONF IRM, ‘Ask question, get y/n answer 

41 MAILSDISABLE_CTRLY, ‘Disable CLI ctrl/y handling 
MAILSENABLE CTRLY, ‘Enable CLI ctrl/y handling 
MAILSFIND_MSG 'Find sequential message 

44 MAILSFAO_GETMSG, iGETMSG followed by FA 
MAILSGET MSG, 'Get sequential file msg record 
MAILSGETASG 'Get message text for message code 
MAILSINCR_NEWMAIL, ‘Increment new mail count 
MAILSDECR_NEWMAIL, ' and decrement it 
MAILSINFO_MSG 'Get sequential file msg info 
MAILSOPEN-F ILE iOpen msg fil 
MAILSRENAME_ERROR ‘Report error from Lib$Srename_file 
MAILSRENAME SUCCESS, 'Report success 
MAILSREWIND MSG ‘Rewind sequential message 
MAILSTEST_SEQ_NEW, ‘Test if message is new message 
MAILSTEST ae ‘Test if subject present in seq. msg 
MAILSWRITE_MSG, ‘Write message to ISAM file 
STRSAPPEND, 'String append 
STRSCOPY_DX, 'String copy 
STRSCONCAT, ! concatenate ; 
STRSFREE1_DX, !Deallocate dynamic string 
sregreane Trim trailing blanks 

OWN 

YN_DESC : DYN_DESC_DECL 'For yes/no answers 


SND_XABPRO : SXABPRO DECL, iProtection XAB 

DYN DESC : DYN_DE ECL, 

DATEBUF : SBBLOCK ‘Temp buf for date/time 
DATEDESC : VECTORE2,LONG); ‘Descriptor for datebuf 


: Define string descriptors 


IWAN A PIPOPOPININININONY 


BIND 
SD_NL = SDESCRIPTOR('NLAO:'); 


GLOBAL BIND 

MAILSSD_NEWMAIL = SD_NEWMAIL, 

MAILSSD-MAIL = SD_MATL 

MAILSSD-EXTMSGNAM”~= SDESCRIPTOR(* !ASMAILS!XL!XL.MAI"); 


Declare facility-specific versions of shared messages 


SSHR_MSGDEF (MAIL,126,LOCAL, 

(COPIEDR. SUCCESS), | 
(CREATED, SUCCESS) 
(INVQUAVAL , WARNING) , 


| 

| 

| 

YSSFAO | 
UTILSGE TF ILENAME: ‘Get file spec from FAB 
| 

| 

| 

| 
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et tte GET_MEM(SIZE,RETADR) = 
| FUNCTIONAL DESCRIPTION: 


1S-sen-1984 99:54 
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; Allocate memory, signal error if unavailable and return status 


BEGIN 


Pp 
RETADR : REF VECTORC,LONG); 


LOCAL 
STATUS; 


IF NOT (STATUS = LIBSGET_VM(SIZE,RETADR(OJ)) 
THEN SIGNAL(.STATUS)> 


RETURN .STATUS 
END; 
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“BLK 
0008 SND_XABPRO: 
00# 00060 DYN_DESC: 


“ASCII \!ASMAILS!XL!XL.MAI\ 
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“LONG 18 
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.PSECT SOWNS,NOEXE,2 
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02 O€ 0 -BYTE 14, 2 ; 
~BLKB 4 
DATEBUF:.BLKB 32 
DATEDESC: 
-BLKB 8 


-PSECT $GLOBAL$,NOEXE,2 

00000 MAILSL_DELMSGCNT 
00008000 00004 MAILSL_RECL_THRE 
00008 RALLSB_MEGTRAN: 


mx 


00009 *BLKB 
00# 0000 MAILSQ_CURFOLDER 
02 0& 0000 ‘BYTE 
001 *BLKB 
00# 00014 NAILSQ_WASTEDESC 
02 OE 00016 “BYTE 
00018 “BLKB 
0001C¢ NAILSL_ASGHAX: 
00020 MAILSL_NMSG: : 
00024 MAILSL_CURMSG: 
00028 MAILSL_MSGTBL:: 
-BLKB 
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34 bytes, Routine Base: S$CODE$ + 0058 


; Routine Size: 


eee — — 


& 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1-5 1984 00:54:01 VAX-11 Bliss-32 V4.0-742 Pa 10 
YoLeb08 1 733p-1$8e 99:23: 0 DISKSVMSMASTER:CMAIL.SRCJISUBS.B32;1 ye (4) 


ROUTINE ADD_MESSAGE(MSGADR) = 
; FUNCTIONAL DESCRIPTION: 


4 i Insert the message block into the message table. If this message 
BY ri causes the table to overflow, double the size of the table. 
03 44 i INPUTS: 
0 rf : MSGADR is address of message descriptor block 
05 4 ine 
88 rk BEGIN 
4 
08 rt 
14 451 MSGADR : REF SB8BLOCK; 
11 38 LOCAL 
\§ 454 NMS 
1 55 DATE : REF VECTORE LONG, 
14 28 DATE2 : REF VECTORL,LONG), 
2 af PTR : REF SBBLOCK; 
9 59 2 IF .MAILSL_NMSG EQL .MAILSL_MSGMAX 
18 60 THEN BEGIN 
19 61 IF .MAILSL_MSGMAX NEQ 0 'If this is not first time... 
$9 66 THEN BEGIN 
3 ; Allocate new table 2* size of old one 
i d 
26 CHSMOVE (.MAILSL_MSGMAX®*4, .MAILSL_MSGTBL,.PTR); 
27 LIBSFREE VM(SREF (4. MAILSL_MSGMAR) ,MAILSL_MSGTBL); 
28 MAIL L_MSGTBL = .PTR; 
29 MAILSLIMSGMAX = 2*,MAILSL_MSGMAX; 


ND 
ELSE BEGIN 
IF _LERR(GET_MEM(128%4 ,MAILSL_MSGTBL);, 
RETURN .STATUS); 


WA 


MAILSL_MSGMAX = 128; 
END; 


SSSVSR RAN AS SAIS AFAN=SSSISETF 


PDE AAR IMINPIMIPIPINININIH EE BBB BBL BE EE EEE EMT NINIPININIDY 2 OS 
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35 
36 END; 
37 ' 
39 : Assume message will go at the end of the vector List 
1 DATE] = MSGADRCMMB_T_HDREC]; ; 
§ MAILSL_MSGTBLC.MAICSC_NMSG) = .MSGADR; !Preset in new slot in table 
MAILSL_NMSG = .MAILSL_NMSG + 1; 

4 -MAILSL_NMSG GTRU T 

5 THEN BEGIN 

$ PTR = .MAILSL_MSGTBLC .MAILSL_NMSG-2); 

DATE2 = PTRCMAB_T HDREC): 

8 IF (.DATEICT) GTR .DATE2C1)) 

9 91 OR ((.DATE1C1 Ft -DATE2C1)) 

50 35 AND (.DATE1LOJ GTRU .DATE2(0))) 

51 9 THEN RETURN TRUE; 


| 
| 
| 
IF _ERR(GET_MEM((8*.MAILSL_MSGMAX) ,PTR);, | 
RETURN .STATUS); 
| 
| 
| 


MAILSISAM_SUBS ISAM MAIL MESSA ROUTIN 
watts bd IL MESSAGE SUBROUTINES 


3 END; 

3 495 ! 

3 4 ! It didn’t. Run through the vector and find the message it goes 
; $7 } n front of. ° . ° 
; 39 INCR I FROM 0 TO .MAILSL_NMSG-2 

; apr OO OEeIM arise mscTeLt. 

° = . s Py 

$ 2 ¢ DATE2 = PrRCHRG T et edd: 

; 503 4 if (.DATEIC1) L5s0 .DATECL1)) 

; 504 5 R ((.DATE1C1 Fe »DATE2C1)) 

3 505 4 & AND (.DATE1[OJ LSSU .DATE2C0])) 

3 288 4 HEN BEGIN 

H 5 4 LOCAL J; 

r 0508 4 

$ 509 4 J = .MAILSL_NMSG - .I; 

; 510 4 CHSMOVE( Je MAILSL_MSGTBLC.1],MAILSL_MSGTBLC.1+1]); 
8 511 4 MAILSL_MSGTBLC.IJ = .MSGADR; 

3 21g 4 EXITLOOP; 

3 051 END; 

; 0514 END; 

; 0515 

; 0516 RETURN TRUE 

3 0517 1 END; 


OFFC 00000 ADD_MESSAGE: 
. WORD save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 


SE 08 C2 9000 SUBL2 
50 00000000' 00 00 0000 MOVL MAILSL_MSGMAX, RO 
50 00000000° 00 D1 soot CPL MAILSL_NMSG, RO 
$f 08 001 TSTL RO 
47 13 00017 BEQL =s«*1$ 
04 AE 9F 9019 PUSHAB 
7E 50 03 78 O001C ASHL #3, RO, -(SP) 
BA AF Q FB 00020 CALLS #2, GET_MEM 
49 59 0024 BLBC TATUS es 
56 00000000' 00 02 78 00027 ASHL #2, MAILSL_MSGMAX, R6 
50 00000000° 9 002F MOVL. MAILSL_MSGTBL, RO 
04 BE 60 6 99 MOVC3 6, (RO), aPTR 
00000000° F 000 PUSHAB MAILS$L_MSGTBL 
04 AE 6 po 9041 VL —s R6, 4 (SP) 
04 AE F 00045 PUSHAB 4(§P) 

0000006 00 0 FB 048 CALLS #2, LIBSFREE_VM 
0000000' 99 04 AE D F MOVL PTR, MAILSL_ASGTBL 
0000000" 00 02 cA 27 MULL2 #2, MAILSL_ASGMAX 

00000000" 0 3 0 Fi 1$ PUSHAB MAILSL_MSGTBL 
7E 020 F 3C 00066 MOVZWL #512, =(SP) 
FFOE cf ; Fe CALLS #2 GET _HEM 
1 i o7 28: BLBS STATUS, ~3 
00000000' 00 80 8F 9A 00074 3S: MOVZBL #128, MAILSL_MSGMAX 


4 
$ep-1984 00:54:01 VAX-11 Bliss-32 V4.0-74 
att 7 93:23:90 Df aKSVMSMASTERSCMAIL SRCIISUBS.832; 1 
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; Routine Size: 269 bytes, Routine Base: $CODE$S + OO7A 


& 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1b-se -1984 00:54:01 -VAX=11 Bliss-32 v4.0-742 Page 12. 
rat fi 1 =300 71382 90:25: 0  DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 9 (4). 
58 04 ac 47 BF Ci re 4$: ADDL3 #71, MSGADR DATE! ; 0483 
2A 0: 0 D MOVL MAIL SL _MSGTBL R10 + 0484 
9 ‘ D MOVL § MAILSL“NMSG. RO : 
oe 0° 06 bb 0009 Meet ANB yheg) ROD 48s, 
59 800000 5: p 06 9 MOVL MAILSL NMS, RO ; ba8e 
i p A CMPL a) ; 
1p BLEGU 5 : 
04 AE £8 AALS D AA MOVL. =8(R10)CR9J, PTR + 0488 
57 4 AE 000000467 BF C 80 ADDL3 #71, PTR, DATE2 + 0489 
06 =A 046 AB O1 B CMPL 4(DATE1). 4(DATE2) t 0490 
49 1A 0008 BGTRU 2 ; 
0 Ie C BNEQ a + 0491 
67 68 0 99¢ CMPL  (9ATE1), (DATE2) + 0492 
42 1A 000C BGTRU 9$ : 
58 FE AS SE 000C7 S$: MOVAB =2(R9), R11 + 0499 
56 91 fF 00¢B MNEGL #1, I + 0503 
5 11 000¢ BRB 8$ : 
04 AE 6A46 DO 00000 6$: MOVL. (R10)CIJ, PTR + 0501 
57 04 AE 00000047 &8F C1 000D ADDL3 #71, PTR, DATE2 : 050¢ 
04 A? 04 ag D1 000D CMPL 4 (DATE1). 4(DATE2) : 050 
07 1F OOOE BLSSU 7$ : 
3 12 000E BNEQ 8$ + 0504 
67 68 01 000E7 CMPL (DATE1), (DATE2) > 0505 
19 1g OOOEA BGEQU 8$ F 
50 59 56 C3 OOOEC 7S: SUBL3. «I, R9, J : 0509 
50 04 Ch O00F MULL2 #4, RO : 0510 
04 AAG6 DF O00F PUSHAL 4(R10)C1) ; 
6A46 DF OOOF PUSHAL (R10)CI) ; 
9E 9E 50 28 OOOFA MOVC3 RO, a(SP)+, a(SP)+ : 
6A46 04 AC dO O00FE MOVL MSGADR, (R10)CI) > 0511 
04 11 0010 BRB 9$ : 0506 
C7 56 5B F3 00105 8$ AOBLEQ R11, I, 6$ + 0499 
50 01 D0 00109 9$ MOVL 1, : 0516 
04 0010C ET : 0517 
| 


Ho | 
MAILSiSAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1 1 VAX-11 Biiss-32 V4.0-742 Page 13) 
yoetobs 1h- ie 198 99:23 :20 _ DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 2 (3) 
: Af 318 GLOBAL ROUTINE MAILSFORM_EXTFILE (DATIM,DESC) : NOVALUE = 
; i 2 9 | | FUNCTIONAL DESCRIPTION: 
: 381 S22 1: Make the external file name | 
; 382 §258 | | | 
: 38 09 4 1 ie 
: 384 0525 2 BEGIN 
: 385 05 $ MAP 
: 386 05 DESC : REF $BBLOCK; 
: 387 0528 
: 388 0529 2 LOCAL 
: 389 0530 FDESC : VECTORC2 LONG), 
; 390 08 1 TMPFAB : DECL, 
: 391 5 é TMPNAM : SNAR-D DECL 
; 3 O.. NAMBUF : SBBLOCKCNAMSC_MAXRSS); 
P4 4 
: 394 P 0358 SFAB_ INIT (EABSTHPE AB 
: 395 P 0536 FNS=.MAIL$Q -RD_DESCEDSCSW_LENGTH 
: 396 P 0537 FNA=.MAIL$Q_-RD-DESCLDSC$A_POINTERJ, 
: 397 05 8 NAM=TMPNAM) | 
: 398 539 
: 399 P 0540 2 SNAM_INIT(NAM=TMPNAM, 
: 400 P 0541 ESS=NAMSC MAXRSS, 
: 401 P O54¢ ESA= 
: 40 P 054 é RSS=NAMSC MAXRSS, 
: 40 0544 RSA=NAMBUF) ; 
: 404 0545 
: 405 0546 2 SPARSE (FAB=TMPF 
: 406 0547 FDESC 03 = .1M RPNRAENANSE NODE] + .TMPNAMCNAMSB_DEV] + .TMPNAMCNAMSB_DIR); 
> 407 0548 ESCC1) = CIF NAMCNAMS$L_NODE} NEQ 
: 408 0549 THEN” NT RPNAR NAM$L_NOD 1. 
5 ret Beee 3 ELSE .TMPNAMCNAMSL_DEV)) 
: 411 055¢ SYSSFAO(MAILS$SD -EXTMSGNAM, .DESC. .D SC BDESC, 
> 412 0553 2 -( DATIM)<32, $2,0 
: 413 0554 : *DATIM)<O, $2, 63 
> 414 0555 2 RETURN; 
3 6415 0556 1 END; 
.EXTRN SYSSPARSE | 
003c 00000 -ENTRY MAILSFORM_EXTFILE, Save R2,R3.R4,R5 : 0518 | 
5E FE48 CE 9E 90008 MOVAB =44 ‘ : 
0050 «BF 00 6E : 00 2¢ 900 MOVCS #0, (SP). #0, #80, SRMS_PTR ; 0538 | 
A8 AD 5003 8F B 0010 MOVW #20485. SRMS_PTR ; | 
BE AD 02 9 0016 MOVB » $RMS brass ; | 
C7 AD 02 9 tA MOVB SRMS~P ; | 
DO = AD FF48 CD 9% OOOTE MOVAB m3 SRM R+40 ; 
D4 =D 990000006 0 p 024 MOVL MAIL$Q RD ROES Ce 4 ants PTR+44 ; 
DC AD 000000006 00 02¢ MOVE MAILS$Q~ DESC PTR+52 ; 
0060 8F 00 6E ie 0 2c 99 ‘ mMOovCS 40, (SP) ion "Srns” PTR > 0544 | 
FF48 CD 6002 Bt BO 0003E MOVW #24578, SRMS_PTR : 


| N 4 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 09:54 191 VAX=11 Bliss-32 V4. 0-742 
v04= 14-Sep-1984 2:20 DT eKSVMEMASTER. CMAIL.SRCJISUBS.B32; -" 
FF4A CD 01 BE 00045 MNEGB 4 SRMS_PTR+2 
aa CD oF E OO04A MOVAB it sans. PrRed 
ae CD E OO04F MNEGB RMS _P 
FF54 OCD 6E 9E 4 MOVAB wal y *OTR+12 
AS AD OF 9 PUSHAB 
000000006 0 01 FB CALLS LousysSe Arse 
80 AD 9A 0006 MOVZBL 
1 81 AD 9A 0006 MOVZBL TReNAn > RI 
39 51 £0 0068 ADDL2 R11, R 
§ 82 Ap A 06 MOV ZBL TMPNAM+58 R2 
F8 AD 50 52 C1 000 ADDL sf DES 
88 AD D3 607 TSTL am 
06 13 OO07A BEQL i$ 
50 88 AD 00 0007¢ MOVL § TMPNAM+64, RO 
04 11 00080 BRB 2$ 
50 8C AD dO 00082 1$: MOVL §_ TMPNAM#+68, RO 
FC AD 50 DO 00086 2$: MOVL RO, FDESC+4 
50 04 AC DO 0008A MOVL _—DATIM, 
60 DD OO008E PUSHL (RO) 
04 AO DD 00090 PUSHL  4(RO) 
F8 AD 9F 00093 PUSHAB FDESC 
08 AC DD 00096 PUSHL DESC 
08 AC DD 00099 PUSHL DESC 
FE29 CF 9F 0009C PUSHAB MAILSSD EXTMSGNAM 
000000006 00 06 FB O00A0 CALLS #6, SYSSFAO 
04 000A7 RET 


; Routine Size: 168 bytes, Routine Base: $CODES + 0187 
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SOUT INE READ_SAVE_EXTMSG = 
FUNCTIONAL DESCRIPTION: 
! Read a message which is contained in an external message file 


BEGIN 
LOCAL 
STATUS, 
TMPFAB : $FAB_DECL, 
TMPRAB : $RAB_DECL, 
TMPNAM : $NAM DEEL 
NAMBUF : SBBLOCKCNAMSC_MAXRSSJ, 
TMPXAB : S$XABFHC_DECL,~ 
TMPXAB1 : SXABPRO DECL, 
As TeLoce as SBBLOCK, 
PTR BBL gCK 
DESC : REE Toe LONG), 
BUF SIZ. 
NBYTES 
NBLOCKS; 
$L CURSGERME Vv pores FALSE; 


1 
1 
1 
1 
1 
1 
: 
; 
: 0 C_MAXRSS 
= Nan 

: ! $F ORM Piioane _CURMSGCMMB_Q_DATID],DESC); 
§ Open the external message file 
é $FAB AB_INIT (FAB=TMPE AB 

FAC=(GET,BRO), 
2 FOP=SQ0 
2 ENS= DESC 0}. 
2 FNA=.DESCL1 
2 CTX=MAIL$_OPENIN, 
2 PXAB 
2 
: 


XAB=TMP 
NAR=TMPNAMS ; 


SXABF HC in, Mh a pdb 
“NXT=TMPXAB1) ; 


vires. retires. 


$RAB_INIT(RAB=TMPRAB, 
ROP=B10 
FAB=TMPF AB); 


SNAM_INIT(NAM=TMPNAM, 
ESS=NAMSC_MAXRSS, 
ESA=NAMBUF , 
RSS=NAMSC_MAXRSS, 
RSA=NAMBUF ) ; 


IF ERR(SOPEN(FAB=TMPFAB, wr ii 10_ERROR);, 
MAILSL_CURMSGCMMB_V_EXTFNFJ = TRUE; 


5 
MAILS1SAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 18-Sep-1984 09:54: 1 VAX=11 Bliss-32 V4.0-742 Page 16) 
v04-0 14-Sep-1984 12:42:20 DISKSVMSMASTER: (MAIL. SRCJISUBS.B32;1 (6) 
; 474 0614 RETURN .STATUS); 
; 475 bere 
: 476 616 ' 
s 4677 061 ! If file is not variable Length sequential, then we have to 
> 478 0618 ' read in records 
: 479 0619 \ 
: 480 0620 If .TMPFABCFAB$B_RFM] NEQ FABSC_V 
: 481 0621 OR .TMPFABLFAB$B ORG] NEQ Fruge sea 
3 rt 36 ¢ THEN MAILSL_CURMSGLMMB_V_EXTNSTD NOT (TMPRABCRABSV_BIO) = FALSE); 
: 484 P 0624 IF ~ERR(SCONNECT (RAB= TMPRAB, ERR=UTILSREPORT_10_ERROR);, 
>: 485 Pp 06 5 SCLOSE (F AB=TMPF 
> 486 P 06 $ MAILSL_ CURMS LAB i LEXTFNFJ = TRUE; 
; 487 06 RETURN .STATUS); 
: 488 0628 
3; 489 0629 IF _.TMPRABCRABSV_B10) 
; 490 0630 THEN BEG 
: 491 0631 BUFSIZ = (. THPRABCXABSI. EBKI*512) 
: 49 b636 mA ~CURMSGCMMB Btn Ne ~BUFS1Z Com ABS bytes, converted later 
> 49 0633 3 NBYTES = ((.T ABERABSL Stax): yt 155. rmPxaBEKA $w_FFB); | 
3: 494 0634 3 IF -BUF SIZ gar 
3; 495 0635 4 THEN (SCLOSE (FAB=TMPF AB) ; 
> 496 0636 ; RETURN TRUE); 
: 497 0637 
: 498 P 0638 3 IF _ERR(GET_MEM(TXT_C_LENGTH+.BUFSIZ,PTR);, 
: 499 P 0639 3 SCLOSETFAB=TMPFAB) ; 
; 500 P 0640 ; MAILSL.C URMSGCMMB_ V_EXTFNF] = TRUE; 
; 501 0641 RETURN CTATUS 
; 502 064 
: 503 064 PTRCTXT_L_NEXT] = 0; 
: 504 0644 ml $L CURMS GLAM LLTATLST = .PTR; 
; 505 0645 RCTX xT _T TLENI = 
; 506 0646 3 PIR TXT THA LOE pureize> 
: 507 0647 3 BUFSIZ =  -BUFS $12/5125 | 
; 508 0648 3 TMPRABLRABSL_CTX MAILS READERR; 
: 509 0649 3 TMPRABLRABSL ~ UBF s PIR TRI_T_TEXT); 
: 510 0650 WHILE .BUFSIZ G 
: 511 0651 4 EGIN 
: 212 0638 4 NBLOCKS | = BINU(S + #BUFSIZ) ; 
; 51 0653 4 TMPRABLRABSW BLOCKS*512; 
: 514 P 0654 4 IF PER (SREADTRABS THPRAB ERR =UTIL$REPORT_10_ERROR);, 
: 515 P 0655 4 $CLOSE (F AB=TMPF AB) 
; 516 P 0656 4 FS -NBYTES NEQ 0 
: 517 Fe 9637 4 THE N RAILSL _ Sees _V_EXTFNFJ = TRUE; 
; 518 658 4 RETURNeS >gTAty 
: 519 0659 4 TMPRABCRABSL UBF UF MPRABLRABSL _UBF] + . TMPRABLRABSW_RSZJ; 
3 220 0660 4 BUFSIZ = .BUFSIZ = .NBLOCKS; 
s Sei 0661 END; 
: 256 066 END 
: $e 066 ELSE BEGIN 
: 236 0666 ' 
3 3 H Rede : Record format is not variable Length, read file in record mode 
: 527 O66? LASTBLOCK = MAIL st CURMSG MMB L_TXTLST); 
: 528 668 MAILSL_CURMS _C_NB 
: 529 0669 IMPRABTRABSL UBF a Sci BIGBUFFER: 
: 530 0670 TMPRABLRABSW_USZ) = HalLgK K_INBUFFSZ; 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES = AX-11 Bliss- 
V04~ - 16+ sep oR 99:36 +38: i VAX=11 Bliss-32 V4.0-7 


42 
14-Sep-1 DISKSVMSMASTER: (MAIL. SRCJISUBS.B32; "ie 


; 1 oF ; WHILE (STATUS = $GET(RAB=TMPRAB,ERR=UTILSREPORT_IO_ERROR)) NEQ RMSS_EOF 
: ¢ P ong 4 IF _ERR(GET MEM(TXT _C_LENGTH*. TMPRABLRABSW_RSZI,PTR);, 
: 2 P 0674 4 SIGNAL (. STAT 
; 5 P 0675 4 BAILSL CURMSG Cmhe V_EXTFNF] = TRUE; 
:; 5 6 P 676 4 OSETFAB ABY;~ 
. 5 0677 4 Re TUAN STATUS); 
: 538 0678 4 PTRCTXT 
; 539 9679 4 LASTBLOCKCTAT L neXt) = PTR; 
: 540 680 4 LASTBLOCK = 
: 541 0681 4 MAILSL ~CURMSGLMMB_ L_NBLKS) = MALLSL CURMSGCMMB_L NBLKS] + 
; 248 b68¢ 4 MPRA sta RST + 2; 
: 54 683 4 PTRCTXT_L_TEXTLEN] .. Tenet RABiu” RS 
> 544 0684 4 PTRCTXT-L-ALLOC IGEN 
: 545 0685 4 CH HSMOVETS TMPRAB rapa. REZ. ~tapRAB RABSL _RBFJ,PTRCTXT_T_TEXT); 
: 546 0686 3 END; 
; 547 0687 
: 548 0688 SCLOSE (FAB=THPF AB) 
: 549 0689 2 RETURN TRUE 
: 550 0690 1 ENDS 
.EXTRN SYSSOPEN, SYSSCONNECT 
“EXTRN SYSS$CLOSE, SYSSREAD 
“EXTRN SYSSGET 
OFFC 00000 READ_SAVE EXTMSG: 
-QORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
58 FE23 CF 9E 00002 hovAB GET MEM. Ril 
5A 000000006 00 9€ 00007 MOVAB UTIESREPORT 10_ERROR, R10 
59 000000006 00 9€E 0000 MOVAB SYSSCLOSE, RO ~ 
58 00000000' 00 9€ 0001 MOVAB RAILSL CURMSG, RB 
5E FD7C cE 3 0001C¢ MOVAB 44 (SP), 
50 68 DO 00021 OVL MAILS COR. RO 
OA AO 10 BA 00024 BICB2 OCR 
04 AE 8F 9A 00028 MOVZBL #25 386 Dee 
08 AE 0090 CE 9E ONO p MOVAB  NAMBUF, DESC+4 
Ar 9F OUD PUSHAB D s¢ 
7 AO OF 000 PUSHAB 55(RO) 
O12F CB 02 FB 00039 CALLS #2, MAILSFORM_EXTFILE 
0050 «8F 00 6E 00 2¢ 0055 MOVCS #0, (SP), #0,-#80, $RMS_PTR 
BO AD 500 F BO 00047 OVW Foes gins SRMS_PTR 
B4 AD 4 F 9A 0004 MOVZBL -PIRe _% 
(6 AD 4 F 9 MOV #66 rae: 
C8 AD 007E109 F p MOVL 6 84, “sang “Srne2s 
CF AD 2 F MOVB +3T 
D4 AD 4 AE 9E 00063 MOVAB TAPXAB SRNS PTR36 
D8 AD FF ¢ CD 9E 00068 MOV TMPNAM, SRMS~PTR+4 
DC AD AE 96 MOVL  DESC+4 SRMS PTR+44 
E46 AD 4 AE VB DESC § +52 
2¢ 00 6E i 00 2c 0078 MOVCS (sP), $90, #44, SRMS_PTR 
64 AE 2c1D ~—saBF 80 Ort MOVW #11293, SRMS PIR. 
68 AE OC AE 9E 8s MOV TMPXAB1, $RMS_PTR 
0058 =««aBF 00 éf 06 2C 0008A movcS #0, xeePS, #0, “988. * srms _PTR 


; 0557 


<z 
— 


Se “ : 5 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16- Sen-19 X-11 Bliss-32 v4.0-742 e 18) 
vat tt 1 ~30271 382 99:23 +t K b ote aKSV MSMASTER: CMAIL.SRCJISUBS.B32;1 dem (6) | 
oc ne 5848 BF BO 33 MOV, #22547, $RMS_PTR : | 
0044 &8F 00 6E ; 0 Be } MOVCS 55° (s6)° > #68, SRMS_PTR + 0604 
FF GC CD 08s br 0 A MOVW #17409, SRMS_PTR : | 
FF CD 0809 F 3C OOOAA MOVZWL #204 "SRMS _PTR+4 : 
AB AD AD 9€ 00081 MOV TMPFAB, SRMS_PTR+60 : 
0060 &F 00 6E ee 00 2¢ Stes mMovCS #0, (SP), #07 Pee $RMS_PTR + 0610 
FFOC CD 600 BF 0 o¢0 MOVW #24578, SRMS_PTR : 
443 CD 1 8E 000C MNEGB #1, SRMS_PTRF2 : 
FFI CD 0090 cE E doce MOVAB F, SRMS_PTR+4 : 
FF IG CD gE D MNEGB sof], Ris PTR#1 : 
FFI CD 0090 E 9€ 00008 MOVAB NAMBUF, SRMS_PTR+12 3 
A DD 000DF PUSHL R10. + 0614 
BO AD 9F OO0E| PUSHAB FAB : 
000000006 00 08 FB O0E4 CALLS i SYSSOPEN : 
08 E8 OO0EB BLBS Ss, 1$ : 
51 68 DO OOOEE MOVL SAILSL CURMSG, R1 : 
OA Al 10 88 900F | BISB2 #16, 10(R1) ; 
04 O00FS RET : 
02 CF AD 91 000F6 1$ CMPB  =s: TMPFAB+31, #2 : 0620 
05 Ne OOOFA BNEQ ; 
CD 6AD «95 O00FC TSTB = TMPFAB+29 : 0621 
OD 13 OOOFF BEQL : 
50 68 DO 00101 2s: MOVL MAILSL_CURMSG, RO : 0622 
FF71 CD 08 BA 00104 BICB2 #8, TMPRAB+5S ; 
0A AO 40 8F 88 00109 BISB2 76h, 10(RO) ; 
5A DD 00108 3$ PUSHL R10 : 0627 
FF6C CD 9F 0011 PUSHAB TMPRAB ; 
000000006 00 02 FB 00114 CALLS ie SYSSCONNECT : 
52 50 DO 00118 MOVL TUS ; 
10 52 £8 OO11E BLBS srArus. res : 
BO AD 9F 00121 PUSHAB TMPFAB : 
69 01 FB 00124 CALLS SYSSCLOSE ; 
50 68 DO 00127 MOVL Buk CURMSG, RO : 
0A AO 10 88 0012A BISB2 #16, 10(RO) ; 
O10F 31 O012E BRW ; 
50 68 D9 00131 4$ MOVL  MAILSL CURMSG. .R RO > 0632 
03 FF71 (CD 0 001 BBS #3, TMP : 0629 
OOAD 31 0013A BRW 126 F 
52 74 AE 09 78 0013p 5$ ASHL = #9 THPXA +16, BUFSIZ : 0631 
FAO 52 b0 142 MOVL Burs (ROS : 063¢ 
53 4 OA 09 146 ASHL # TAbYABS 8. R3 > 063 
5 78 «OA 3 14B MOVZ2WL TMPXAB+20, R : 
& 5 O14F ADDL2 RO R : 
53 FEOO ¢ O15¢ MOVAB -512(R3), NBYTES : 
d5 001 TSTL UFSIZ > 0634 
42 13 00159 BEQL : 
5 pd 0138 PUSHL SP > 0641 
OC Ad OF 91 D PUSHAB 12(BUFSIZ) : 
68 F 160 CALLS #2, GET_MEM ; 
54 DO 0016 MOVL RO, STATUS : 
08 4 f 166 BLBS STATUS, 6$ : 
BO AD SF 0016 PUSHAB TMPF : 
69 01 re 16C CALLS #1, SYSSCLOSE F 
61 11 OO16F BRB i$ ; 
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000000006 
0001827A 


000000006 
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0200 

FF6C 


BO 
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9 OO —TINIONOOMS NONWS EF MOOCO™™MNOF LOONW Oo LOMO F MT OOMWONMNWNO BM MNWO@om 
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eee wn fn fe pn fn fn fn fn lololololololololelolololelolololelololelolololeleololololociolocio) 
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WO BS NLM S OH BON MOM SOON 9 OE GYUMNVOM DW OVIVD NUM DOOworw eowooer- 


sow 


~N 
Sad 


PM 


10$: 


11$: 
12$: 
13$: 


14$: 


=" 
“ 
bad 
ee 


1 VAX-11 Bliss-32 V4.0-742 Page 
0  DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 
TR, RO 
ROS 
AILSL CURMSG, R1 
0, 6(R1) 
NBYTES, 4(RO) 
yr SIZ 8(RO) 
#51 BUF SIZ 
wgeels THPRAB® 24 
12(RO), fMPRAB+36 
BUFSIZ 
$ 
boest RO 
RO 45 
log 
RO 


#32, 

RO NBLOCKS 

#3i2, NBLOCKS, TMPRAB+32 
TMPRAB 

#2, SYSS$READ 

RO, STATUS 
STATUS, 13$ 
TMPFAB 

#1, SYSSCLOSE 
NBYTES 

12$ 
MAILSL_CURMSG, RO 
#16, 10(RO) 
STATUS, RO 
TMPRAB+34, RO 

RO, TMPRAB+36 
NBLOCKS, BUF SIZ 
6(RO), LASTBLOCK 
63(ROS 

MAILSGL BIGBUFFER, TMPRAB+36 
#512, TAPRAB+32 
R10 

TMPRAB 

#2, SYSSGET 

RO, STATUS 
STATUS, #98938 

8$ 

SP 

TMPRAB+34, =-(SP) 
#12, (SP) 


ral L 1BSSIGNAL 
maj , CURMSG, RO 
#1 O(RO) 

TMP AB 

#1, SYSSCLOSE 


See Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Se Se Ge Se Fe Ge Ge Se Se Se Be Se Se Se Be Se Se Se Fe Be Se Ge Se Ge Ge Se Se Se Ge Se Fe Se Fe Be Ge Fe Be Se 


MAI 
v04 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTIN -1984 AX-11 
vOL bd I E OUTINES 18-50 Sep 138% 99:28 23: i VAX 


$232 V4 0-742 2 
~Sep-1 DISKSVMSMAST age 20 


li 
MASTER: [MA AIL.SRCJISUBS.B32;1 


—— 


Be Se Se Se Se Ge Se Se Be Se Se Se Se Se Be Se Be & 
o 
S & 
33 SxsFe & =n 


50 52 bo 49 16$: MOVL STATUS, RO 
51 6E DO 00264 17$:  MOVL PTR, R1 0678 
1 D4 00247 CLRL (R1$ 
6 1 0 49 MOVL RI, (LASTBLOCK) 679 
5 1 0 4C MOVL 1 LA LOCK 680 
0 48 p OF malt L Rertn RO 
3 gE AD 3¢ 2 MOVZWL 
F Ag 0 é ADDL2 bacR RO}, 
3F) OA ge A2 9E A MOVAB 2(R2) §eR0) 
04 al E AD € 00 3 MOVZWL TMPRA + 4, ert) 06 
oc Al 94 BD ge AD Be 6 69 MOVC3 LOOP TAP @TMPRAB+40, 12(R1) 0685 
8D 11 00 7 BRB 15$ 0671 
BO AD 9F 00272 18$:  PUSHAB TMPFAB 06 
69 01 FB 0027 CALLS #1, SYSSCLOSE 
50 01 DO 00278 MOVL #1. RO 0689 
04 00278 RET 06 


; Routine Size: 636 bytes, Routine Base: S$CODES + 022F 


H 5 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss=32 V4.0-742 Page 21 
v04=000 1230821984 13:23:9) DISKSVMSMASTER: CMAIL.SRCJISUBS.832;1 : 3 
g 91 
69 
4 


ROUTINE READ_SAVE_MSG = 


™ 
| 

3 } | 
. { 
; é 693 i FUNCTIONAL DESCRIPTION: | 
; 3 695 1! Read the text records of the current message and stash them in 
oe Bee 1! memory 
: 338 697 1: 
5 0698 1 !<- 
: 560 0699 2 BEGIN | 
; 561 0700 
; 26¢ 701 2 LOCAL 
; 56 7 : LASTBLOCK : REF $BBLOCK, 
; 564 7 PTR : REF $BBLOCK, 
: 565 0704 RECLEN, | 
; 566 0705 STATUS; 
; 567 0706 
; 968 0707 2 MAILSL_CURMSGLMMB_L_NBLKS) = 0; | 
: 570 0709 2 IF .MAILSL_CURMSGCMMB_V_EXTMSG) | 
3 27) o710 THEN RETURN READ_SAVE_EXTMSG(); | 
; 378 orig MAILST_RD_RABCRABSL_ROP] = RABSM_LIM OR RABSM_LOC OR RABSM_NLK; 
> 57% 0713 2 MAILST~RD-RABCRABSL-KBF] = MAILSC_CURMSGLMMB_O_DATID); | 
; 575 0714 2 MAILS$T“RD-RABLRABSB_KSZ) = 8; 
: 576 0715 2 MAILS$T-RD-RABLRABSB_KRF) = 0: 
: 577 0716 2 MAILST“RD-RABLRABS$B_RAC) = RABSC_KEY; 
: 578 0717 2 MAILST-RD-RABLRABSL_CTX] = MAILS~READERR; 
: 579 0718 2 MAILS$T-RD-RABCRABSL_UBF) = .MAILSL_RECBUF; 
; 580 P0719 2 IF_ERRTSFIND(RAB=MAIL$T_RD_RAB);, 
; 581 P 0720 IF .STATUS EQL RMSS_RNF 
: 282 P 0721 THEN RETURN TRUE; 
; 58 P 07 : UTILSREPORT_I0_ERROR(MAIL$T_RD_RAB); | 
; 584 72 RETURN .STATUS); 
; 285 O72 MAILS$T_RD_RABCRABSB_RAC) = RABSC_SEQ; 
: oer 8789 : Read in all records of this message 
: 589 0728 2 LASTBLOCK = MAILSL_CURMSGCMMB_L_TXTLST); 
; 590 0729 2 WHILE 1 
; 591 0730 3 DO BEGIN 
; 298 0731 STATUS = $GET(RAB=MAILS$T_RD_RAB); 
; 59 07 : IF NOT .STATUS | 
: 594 0733 4 THEN BEGIN 
: 595 07 . 2. IF .STATUS NEQ RMS$_RNF 
; 596 735 4 AND .STATUS NEQ RMSS EOF 
: 597 0736 4 THEN RETURN UTILSREPORT_1I0_ERROR(MAIL$T_RD_RAB); | 
: 598 07 7 4 EXITLOOP; 
; 599 738 END; 
; 600 0739 IF .STATUS EQL RMS$_OK_LIM 
; 601 9740 THEN EXITLOOP; | 
: 60 741 IF .MAIL$T_RD_RABLRABSW_RSZ] GTRU 8 ‘Skip marker records | 
: 60 0746 4 THEN BEGIN 
3 604 743 & RECLEN = .MAILS$T_RD_RABCRABSW_RSZ) - SBYTEOFFSET(MFR_T_DATA); 
+ 605 P0744 4 IF_ERR(GET_MEM(TRT_C_LENGTH+.RECLEN,PTR);, 
: 606 745 & RETURN .STATOS); 
: 60 746 4 PTRCTXT_L_NEXT) = .LASTBLOCKCTXT_L_NEXT); 
; 608 0747 4 LASTBLOCKETXT_L_NEXT] = .PTR; 


3 


RETURN TRUE 
END; 


Sete Ge Se ee ee Be Ge ee Se ae 
PAAPSAAAAOOAO 
ts ss 
PAA) 
ONOUSWN—OOe 
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00018282 


58 


00018051 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 
yoeco08 . : 


= .P 
MSGC 
TEXT 
PTRLTXT-L-ALLO 
CHSMOVET. sme tte 

PTRLTX 


000000006 


000000006 


00018282 
0001827A 


AY 00114000 
6A 
ay 
A9 
9 007E1080 


A 

AY 000000006 
0 

5 

1 

8F 

$0 


1E 


OFFC 00000 READ_SAVE _MSG: 
. WORD 


MOMVMWNMVIMIO MO WOOwC 


—VDOONFBNO—OOO M—OMNONO— 0OT"-an™ 


OVMAVVIVIVIMNOMO & 


wn 
 ~ 


9E 0000 


WD > WN00 & NO 


IANOTONON 2 2 


OOCCOSSSOOCOCSOOCSOCooooO 


SOOO OO OOOO OOOO OOOO OOOO OO OOOO 
Ann on MAMI & ww 
QRSS VSR VR SES SRASS SSS VASNSaSsS 


SOOOCGCOCOOGOOCOCOOOCOCOOSGOOOOOOOOOOOOOOoOoOoOO 


CTOo7NdO 9-9 M9 TIO OOOU NO “OMI "OCT OMOCVO"MIOoOO 
FDO -"- DOD OS  F FOTO WW" DBODVI OOCSC0O- 0 fF @ — Form 


ss 
wn 
oo 


23: 
3$: 


_ MAILSL _-CURMSGCMMB_L_NBLKS] + 


“19 VAX=11 $732 V4.0-742 
1984 99:23 42: } DISK SK$V neh TER: CMAIL.SRCJISUBS.832;1 


-RECLEN + 2; 


* RABLRABSL _RBF J+SBYTEOFFSET(MFR_T_DATA), 


-EXTRN SYSSFIND 


S R2,R3,R4,R5,R6,R7,R8,RI,R1I0,R11 
UTIL SRE port 16_£4ROR, &11 

MAILSL 

RAIL ST RD. ee ae 


ae CURMSG, RO 


3.1 


#0, READ. Save exTMsG 


#1130496, MAILST_RD_RAB+4 
#55, MAILSL_CURMSG, MAIL$T_RD_RAB+48 
48, MAIL $T “RAAB Apes 


RAILST=RD RAB+3 
78561 1808, MAICS$T_RD_RAB+24 
- RECBUF, MAILST_RD_RAB+36 


» SYSSFIND 
- STATUS 


STATUS, 2$ 
giATus. #98994 


wn 
a4 


Rd 
#1 UTILSREPORT_ 10_ERROR 
STATUS, RO 


MAILST_RD_RAB+30 
a9" MATLSC_CURMSG, LASTBLOCK 


syseeet 
RO; We 


STAT Tos" 

STATUS, 798996 
STATUS, #98938 
é$ 


R9 
#1, UTILSREPORT_I0_ERROR 
STATUS, #98385 


oan (| 


0691 


<2 
yo a 


; Routine Size: 243 bytes, Routine Base: S$CODES + 04AB 


| 
5 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1b-se =1984 00:54: VAX=-11 Bliss-32 V4.0-74 P 
Hive tid 12x 800- 1382 99:23:9) Pha ea ates Mh ile a sues e321. «oF 
47 13 0006 5S: BEQ 4g ; 
50 22. Ad 3¢ iB MOVIL MAIL$T_RD_RAB+34, RO t 0741 
30 e AC CMPW RO, #8 : 
C7 18 OOOAF BLEQU 3 ; 
56 DO A0 3 8] ROVAB =48(RO), RECLEN : o743, 
oc A P HF PUSHAB g(RECLEN) : 
FAEE CF 9 EB BA CALLS # GET_MEN : 
0 E BF BLBC STATUS, ~7 : 
1 6 D C MOVL PTR, R + 0746 
61 D ¢ MOVL (LASTBLOCK) (R1) : 
1 0 ¢ MOVL RI, (LASTBLOCK) + 0747 
1 0 CB MOVL RI LASTBLOCK : 0748 
6A 00 cE MOVL. MAILSL_CURMSG, RO + 0749 
52 ‘ 3 OA a D ADDL3 $3(RO), RECL . : 
3F =A 02 =A : 006 MOVAB 2(R2), 63(RO) : 
04 «Al 3 D0 00008 MOVL  RECLEN, 4(R1) : 0750 
08 Al 6 D0 OO00DF MOVL RECLEN, 8(R1) : 0751 
50 28 «AD 00 OES MOVL. MAIL$T RD_RAB+40, RO : 138 
Oc AI 30 AO 36 <8 OE? moves RECLEN, 48(RO), 12(R1) : 0753 
50 01 00 Soore 6$: MOVL #1, RO ; $725 
04 000F2 7$: RET : 0758 


anioeeadiiichal ited anabtines tecniipsaplineiagnhnadetaeeeniond : 
| 


Kk § 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss-32 V4.0-742 Page 24 
vee fit 127808- 1382 99:25:93 DISKSVMSMASTER: CMAIL.SRCJISUBS.832;1 ° é 
: 1 759 1 ROUTINE DEALLOC_MSG = 
; § 760 1 i+ 
; 6 ; f i FUNCTIONAL DESCRIPTION: 
: ° 5 te? } Deallocate ali storage used for current msg | 
: 6 5 165 { IMPLICIT INPUTS: | 
3 ? § ref : MAILSL_CURMSG points at message descriptor block 
; 631 789 BEGIN 
: 3 : 77 LOCAL 
; 6 77 PTR : REF S$BBLOCK, 
3; 635 77 BUF SIZ, 
if i Peep 
; 6 77 IF .MAILSL_CURMSG EQL 0 
3 oz a THEN RETURN TRUE; 
; 641 77 PTR = .MAILSL_CURMSGCMMB_L_TXTLST); 
3 64¢ P 07 IF_ERR(LIBSFREE_VM(ZREF (AME C_LENGTH+.MAILSL_CURMSGCMMB_W_HDRECLENJ), 
: 64 P 0781 MAICSC_CURMSG); 
3 644 7 5 SIGNAL((,STATUS AND NOT STS$M_SEVERITY) OR STSSK_ERROR)); 
3 645 7; MAILSL_CURMSG = 0; 
: 646 7 IF .P 
3 64 97 5 2 THEN WHILE .PTR NEQ 0 
: 648 7 DO BEGIN 
3 649 787 PTR1 = .PTRETXT_L_NEXT); 
; 650 7 BUFSIZ = TXT_C_CERGTH+.PTRCYXT_L_TEXTLEN); 
: 651 P 0789 IF _LERR(LIBSFREE_VM(ZREF (TXT_C_CENGTH+.PTRLTXT_L_ALLOCJ) PTR); 
; 63¢ 0790 SIGNAL((.STATUS"AND NOT STSSM_SEVERTTY) OR STS$K_ERROR)); 
: 65 791 PTR = .PTRI; 
: 654 19 END; 
; 655 79 RETURN TRUE 
; 656 0794 1 END; 
007C 00000 DEALLOC_MSG: 
eWORD Save R2,R3,R4,R5,R6 3; 0759 
6 99 0 6 9 902 MOV LIBSSIGNAL, R6 ; 
G E MOVAB LIBSFREE VM, RS ; 
4 00000000' 9 019 MOV MAILSL_CORMSG, R4 ; 
C 1 SUBL2 #8 sP ; 
4 D0 1A MOVL MAILSL_CURMSG, RO : 0776 
F 13 00010 BEQL 4$ : 
06 AE 06 AO D 1F MOVL 6(RO), PTR : 0779 
54 DD 4 PUSHL R4 : 0782 
04 AE 11. AO ¢ 6 MOVZWL 17(RO), 4(SP) ; 
04 AE 00000047 &F 3 ADDL2. #71, 4(SP) ; 
06 AE OF PUSHAB 4(SP) ; 
5 FB CALLS #2, LIBSFREE_VM ; 
A ; BLBS StAtUs, 1$ : 
0 7 Ba 0003¢ BICB2 #7, R : | 
| 


| 


<= 
F= 


ae 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTIN 
vOe AS 7” E OUTINES 


; Routine Size: 


7E 


53 
04 AE 


7E 


129 bytes. 


50 9 
RG oh 
64 04 
06 AE D 
30 1 
50 04 AE OD 
2A 
5 0 0D 
046 =A C § 
04 AE OF 
08 A0 oc gl 
06 AE OF 
65 9 fe 
0 A 
50 2 ¢9 
66 1 FB 
04 AE ‘ oY 
50 ot dO 
04 


Routine Base: S$CODE$S + O59E 


2s: 


MOOW—-OCOWoow —— 


TONS oors 
ws 
wn 


pa a Pe ary ary rr at ah at A 
° 


woo 


Be 99:03 


‘gi VAX-11 Bliss 
:20 DISKSVMSMAST 


#2, RO, =(SP) 
z L 16$S1GNAL 
MAILSL_CURMSG 
PTR 

4$ 

PTR, RO 


(RO), PTRI 
#12, 4(RO), BUFSIZ 


P 

we ,8(R0), 4(SP) 
#2, LIBSFREE_VM 
STATUS, 3$ 

i: 
PTR1 
$ 
#1, RO 


RO, =(SP) 
LIBSSIGNAL 
, PTR 


32.V4.0-74 
R L. 


E (MAL 


2 P 5 
SRCJISUBS.B32;1 a BB 


<3 


YS 


H 5 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54: VAX=11 Bliss-32_V4.0-742 : 6 
Y0etobS 1exee- 138s 99:23:9)  Ne eee teR Mk ilo eReaisuss.e32.1° 2 «86 


| 
| 

; 6 795 1 ROUTINE FIND_FILE_TYPE (IFAB) = 

: £28 736 1 lee . - 

: 960 Lad i t FUNCTIONAL DESCRIPTION: | 

; 66 799 1! This routine returns the file type in IFABCFABSB_ORGJ. This is needed 

> 66 By 1! if RMS returns RMSS_FLK. 

3 664 te 

3; 665 § 1 ! Inputs: 

g r¢ 8 1! 

; 66 08 1! IFAB = addr of FAB after SOPEN has been tried (must have an attached 

3 O28 0805 } : NAM block 

; £50 0807 BEGIN 

3 671 808 2 MAP 

3; 67 0809 IFAB : REF $BBLOCK; 

3; 67 0810 

; 674 11 BIND 

; 675 Oe INAM = .IFABCFABSL_NAM] : $BBLOCK; 

; 676 081 

3; 677 0814 LOCAL 

; 678 0815 STATUS 

: 679 0816 SAVE_STS, 

3 680 0817 AVE-STV 

: 681 0818 10SB~: VECTORC4,WORD], 

; 68 0819 HANNEL : WOR 

: 68 0820 FIB_DESC : VECTORC2,LONG) 

3 684 0821 FIB™: SBBLOCKCFIB$C_ACCDATA), 

; 685 08 ¢ ATR : BLOCKVECTOR(1,8,BYTE], 

; 686 08 ; FILATR : SBBLOCKCATRSS_RECATTRI; 

3; 688 0825 SAVE_STS = - IFABCFABSL_S1S}; 

: 689 0826 2 SAVE-ST IFABCFABSL STV); 

: 690 0827 IF (STATUS = SPARSE (FAB=.1FAB)) 

; 691 0828 THEN (STATUS = $SEARCH(FAB=.IFAB)); 

3; 69 0809 IFABLFABSL_STS] = .SAVE_STS; 

3; 69 0830 IFABCFABSL-STVJ = .SAVE_STV; 

> 694 0831 IF NOT .STATU 

; 695 bass THEN RETURN .STATUS; 

: 696 083 ' 

; 69 0834 ! Assign a channel to the device 

; 698 0835 i 

; 699 0836 3 FIB_DESCCO) = (IF .INAMCNAMSB_RSL] NEQ 0 

: 700 0837 THEN .INAMCNAMSB_RSL 

; 701 0858 ELSE: INAMCNAMSB-ESL1); | 

: 70 8 FIB_DESCL1) = .INAMLNAMSL_RSA); 

: 70 P 0840 IF ROT (STATUS = SASSIGN(DEVNAM=F IB DESC, 

: 704 841 CHAN=CHANNEL) ) 

; 205 Bie THEN RETURN .STATUS; | 

: 70 844 2 CHSFILL(O,FIBSC_ACCDATA,FIB); ; | 

: 708 845 FIBCFIBSL_ACCTL] = 0; 'No special options 

: 709 g FIBCFIB$W-FID_NUM] = .INAMCNAMSW_FID_NUM); | 

: 710 FIBCFIBSW-FID-SEQ) = .INAMCNAMSW_FID-SEQ); 

i ant 8 ¢ FIBLFIBSW=FID-RVN] = .INAMCNAMSU_FID-RVNI; | 

: rg 50 F 1B DESCEO) = FIBSC_ACCDATA; | 

: 714 0851 FIB-DESCL1) = FIB; 
| 
| 
| 


SS — ) 


ISAM MAIL MESSAGE SUBROUTINES 


5 
MAILSISAM_SUBS $ep-1984 00:54:01 VAX-11 Bliss- 4.0-74 
v04 ety 7 90:23:30 BHASTERSCMAIL sche 


P Page 44 
DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 (9) 


s 715 

; at 3g ATRCO,ATRSW_TYPE] = ATRSC_RECATIR; 

: 71 54 2 ATRCO.ATRSW-SIZE) = ATRSS-RECATIR: 

: at 55 2 ATRLO,ATRSL-ADDR] = FILATR; | 
: 720 p O88? 5 STATUS = SoIOUCFUNCeI0S ~ACCESS 

: 721 Pp 38 HAN=, CHANNEL, 

1, é P enn 
: 7 P 0860 10SB=f0SB 

: 726 P 0861 PI=FIB DESC, 

: 725 O86¢ PS=ATRI; 

: 7 6 086 IF .STATUS 

; 7 4 THEN STATUS = .10SBCO); 
: 728 0865 

: 729 0866 SDASSGN(CHAN=. CHANNEL) ; 

: 730 086 

; 731 0868 2 IF NOT .STATUS 

3 4 0869 THEN RETURN STATUS; 

: 73 0870 

: 7 0871 IFABCFABSB_ORG) = 0; 

. 087 If .FI ILATREFATSY, FILEO Ong) ec EO BATSC INDEXED 

087 THEN IFABLFABS$B_ORG 

; 0874 ELSE if -FILATREFATS$V FILEORe EQL FATSC _SEQUENTIA' 

: 0 , : THEN IFABCFABS$B_ORG) = FABSC_SEQ; 

; 0877 2R RETURN TRUE 

3 0878 1€E 


-EXTRN SYSS$SEARCH, SYSSASSIGN 
-EXTRN SYS$Q10W, SYSSDASSGN 


O1FC 00000 FIND_FILE TYPE: 
.@ORD 


kk a a kk at a ak a at a a ta i mt tk at a a a as a 2 SS sd SS SS Las Ss ts SS SS SS Os YY SY 


Save Sa” kata alia o 0795 
5E BB AE 9E 00002 MOVAB =72(SP) : 
56 04 AC 00 00006 MOVL IFAB Rr + 0812 
57 28 Ad DO OOOOA MOVL  40(R6), R7 F 
53 08 A6 dO OO00E MOVL  8(R6), SAVE_STS + 0825 
52 0C A6 00 0001 MOVL  12(R65, SAVE_STV > 0826 
56 DD 00016 PUSHL R6 + 0827 
000000006 00 01 FB 00018 CALLS #1, SYSSPARSE ; 
58 50 00 O001F MOVL RO. STATUS : 
0c 58 £9 0 BLBC —« STATUS, : 
56 DD PUSHL R6 > 0828 | 
000000006 00 1 FB 0 CALLS #1, SYS$SEARCH ; | 
DO 0002E MOVL RO, STAT ; 
08 Ab DO 00031 1$: MOVL §SAVE_STS, 8(R6) : 0829 
0c D0 0035 MOVL  SAVE~STV, 12(R6) > 0830 
2A 5 f 00 9 BLBC TATOS, “ts > 0831 
03 «A? 3 C TSTB (R7) > 0836 
06 1 00 ¢ BEQL $ ; 
50 03 A? 9A 00041 MOVZBL 3(R7), RO + 0837 
04 11 0043 BRB § ; 
50 0B A7 9A 0004 3s: MOVZBL 11(R7), RO > 0838 
38 AE 50 00 0048 3$: MOVL RO, FIB_DESC : 0836 
C AE 04 A7 DO 0004F MOVL 4(R7), Fis. DESC +4 : 0839 


é 
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7E 7C 00054 CLRQ  <=(SP) 3 0841 :] 
08 AE OF 0036 PUSHAB CHANNEL : :] 
44 AE OOF 005 PUSHAB FIB_DESC : : 1 
000000006 99 04 FB 00 26 CALLS #4, SYSSASSIGN ; 7] 
5 0 09 006 MOVL RO, STATUS : ; 1 
61 5 : 9066 4$: BLBC STATUS, 6$ : : 3 
OA 00 bE : 00 C 06 MOVCS #0, (SP), #0, #10, FIB + 0844 ; : 
C AE 04 0979 CLRL FIB + 0845 : 1 
0 AE 4 A? 00 0007 MOVL  36(R7), FIB+4 + 0846 2] 
4 AE 8 A7 BO 00078 MOVW 40(R7). FIB+8 : 0848 : 1 
8 AE OA pO 9070 MOVL #10, FIB_DESC + 0850 31 
C AE 3¢ AE 5 81 MOVAB FIB, FIB-DESC+4 : 0851 
24 AE 00040020 BF DO 00086 OVL #262176, ATR + 0854 
28 AE 04 AE 9E 00085 MOVAB FILATR, ATR+4 : 0855 
7E D4 0009 CLRL = = (SP) + 0862 
28 AE 9F 00095 PUSHAB ATR : 
7E 7C 00098 CLRQ ss = (SP) : 
7E D4 OOO9A CLRL = = (SP) : 
4C AE 9F 0009C PUSHAB FIB_DESC F 
7E 7C OO09F CLRQ -(SP) : 
60 AE 9F OO0A1 PUSHAB 10SB ; 
32 bp O00A4 PUSHL #50 ; 
7E 28 AE C OO0A6 MOVZWL CHANNEL, -(SP) 3 
7E D4 OOOAA CLRL = = (SP) : 
000000006 00 OC FB OOOAC CALLS #12, SYS$Q10W ; 
58 50 D0 00083 MOVL RO, STATUS F 
04 58 £9 00086 BLBC STATUS, 5$ : 0863 
58 40 AE 3¢ 00089 MOVZWL 10SB, STATUS + 0864 
7E 6E C OOOBD 5$: MOVZWL CHANNEL, -(SP) ; 0866 
000000006 00 01 FB 000C0 CALLS #1, SYS$DASSGN F 
04 58 €8 000C7 BLBS ATUS, > 0868 
50 58 DO OOOCA 6$: MOVL STATUS, RO : 0869 
04 000CD RET ; 
1D A6 94 OOOCE 78: CLRB =. 29(R6) : 0871 
02 04 AE 04 04 ED 00001 CMPZV #4, #4, FILATR, #2 : 0872 
06 12 00007 BNEQ $ ; 
1D AG 20 90 00009 MOVB #32, 29(R6) : 0873 
OA 11 00000 BRB $ : 
FO 8F 04 ag 93 OOODF 8$: BITB FILATR, #240 ; 0874 
03 12 000E4 BNEQ $ : 
1D Ab 94 O00E6 CLRB =. 29(R6) > 0875 
50 01 DO OO0E9 98: MOVL #1, RO : 0877 
04 OO0EC RET : 0878 


; Routine Size: 237 bytes, Routine Base: S$CODES + O61F 


Peers et cet ea gt ee ee eT 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1-50 Sep-1984 VAX-11 Bliss-32 V4.0-742 e 
y0Lt000 es 1a-Sep-1 32 90:23 9 DISKSVMSMASTER: CMAIL.SRCJISUBS.832;1 bes if 
; i? 9878 ! pce. ROUTINE MAILSCREATE_ISAM (IFAB,IRAB, INAM,NAMDESC,UIC,FLAGS,DEFDESC) = 

s 745 O88) 1 ' FUNCTIONAL DESCRIPTION: 

: 746 § 1 i 
: 747 0885 1! Create/open the named ISAM file 

; 768 bene 2 
3; 749 0885 1 ! INPUTS: 
; 750 44] 1! 

s 731 0887 1! IFAB is fab address 

3 Pe 0888 1! IRAB is rab address 
x 0889 1! INAM is nam block address 

3; 754 Baas 1! NAMDESC is descriptor for file spec 

; 755 91 #1! UIC is desired owner, or 0 if current 

3; 756 0892 1! FLAGS are: ok V_CIF to create_if, 0 to unconditionally create 

: 757 0893 1! MCR_V_RIC to create with no sharing 

; 758 0894 1! MCRUV “EXEC to restrict to exec mode logicals 

; 759 0895 1! DEFDESC (opt onal) address of Seect eter for default spec. If 

; 760 0896 1! not specified, MAILS$Q_MAILDEF is used. 

; 761 0897 1! 

; 762 0898 1 ! ROUTINE VALUE: | 
s 765 0899 1! 

: 764 0900 1! RMS$_SHR - file is sequential 

; 765 0901 1! RMS$_FLK = isam file is locked 

; 0902 1! 1 = SUCCESS 

: 767 0903 1 !-- 

; 768 0904 BEGI 

; 769 090 BUILTIN 

; 770 09 NULLPARAME TER; 
: 771 0907 2 

; 77 0908 2 MAP 

3; @7 0909 2 IFAB : REF S$BBLOCK, 

; 774 0910 2 IRAB : REF roe 

3 775 0911 § INAM : REF $BBLO 

s 776 8518 NAMDESC : REF sBaLOcK. 

s Par 0913 2 FLAGS : LOCK 

3 7 0914 2 DEFDESC : REF SBBLOCK; 

: 779 0915 2 

; 780 0916 § LOCAL 

: 781 0917 STATUS, 

: 782 0918 FILE_TYPE, 

3; 783 0919 DEFLEN, 

: 784 0920 DEFADR 

> 785 0921 XABALLO : $XABALL_DECL, 

: 786 3 g XABALL1 : $XABALL_DECL, 

; 9 XABALL : $x L_DECL, 

: 788 0924 XABKEYO : SXABKEY_DECL, 

3 a4 54 ? XABKEY1 : $XABKEY_DECL; 

; 791 0927 DEFLEN = .MAIL$Q a tetaitting apttt 

: 79 0928 2 DEFADR = .MAILS$Q~ MAILDEF DSCSA~POINTER); 
: 79 o 9 IF NOT NULLPARAMETER(7) 
3: 796 930 THEN BEGIN 
; 795 931 DEFLEN = etter rg ppatey 
; 796 238 DEFADR = .DEFDESC DSCS$A~POINTER); 
; 797 9 END; 
: 798 P 0934 2 SFAB_INIT(FAB= 
; 799 P 0935 FNS@-NAMDESCCDSCSW_LENGTH), | 


OAILEESAR_SUBS ISAM MAIL MESSAGE SUBROUTINES p-1984 90: 34:9) VAX=11 Bliss-32 V4.0-742 P 3 
VO4= p-1984 12:42:20 DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 (10 


| 
: 800 P 09 § FNA=.NAMDESCCDSCSA_POINTER], : 
; 801 P 09 DNS=.DEFLEN, : 
; 0¢ P 09 § DNA=.DEFAD : 
; 80 P 09 FAC=(DEL PUT ,GET,UPD), ; 
3 Spe P 0940 NAM=. INAM, ; 
; 805 P 0941 CTX=MAIL$_OPENOUT, : 
; 807 P 094 RFM=VAR, : 
; 808 P 0944 ORG=I1DX, ; 
; 809 P 0945 MRS=MFR_C_MAXLEN, : 
; 319 0946 XAB=SND_XABPRO) ; 
: Bie O36 LFABEFABSV_DF = ,MAIL$B_DFW; 
3; (81 949 IFAB FABSY CIF} = .FLAGSCACR_V_CIF); 
3; B14 0950 IF .FLAGSCACR_V 
: 815 0951 HEN IF ABLFABSB SHR] = FABSM_NIL; 
; 816 0938 IF .FLAGSCMCR_V_EXEC 
3 a7 $323 THEN IFABCFABSV_LNM_MODE] = PSLSC_EXEC; 
; 819 P 0955 2 $XABPRO_INIT(XAB=SND_XABPRO, 
; 820 9926 NXT=X LO); 
; 821 095 SND_XABPROCXABSL_UICJ=.UIC; ! Use owner's UIC | 
; Bs¢ 3238 SND~XABPROLXAB$W_PROJ=SND_PRO; ! Set file protection 
3: B24 P 0960 2 $XABALL_INIT(XAB=XABALLO, : 
; 825 P 0961 A1D=0 3 
; 826 P 096¢ AOP=CBT, ; 
; 827 P 096 BK7Z=5 3 
; 828 P 0964 2 pea=15 ; 
; 829 0965 NXT=XABALL1); ; 
; 830 0966 : 
; «831 P 0967 2 $XABALL_INIT(XAB=XABALL1, : 
5 S36 P 0968 AID=1 3 
: 83 P 0969 AOP=CBT, : 
; 834 P 0970 BK7Z=5, 3 
; 835 P 0971 DEQ=5, Z 
; 836 0978 NXT=XABALL2); : 
3 8357 097 3 
; 838 P 0974 SXABALL_INIT(XAB=XABALL2, | : 
; 839 P 0975 AID=2 ; 
: 840 P 0976 AOP=CBT, | : 
> B41 P 097 BKZ=3, | : 
3 are P 0978 DEQ=3, 3 
; B45 979 NXT=KABKEYO) ; ; 
: 5 Pp 09 1 SKABKEY_INIT (XAB=KABKEYO, : 
: 6 Pp : KREF = : 
> B47 P 09 FLG=DUP, | : 
: B P 09 DTP=BN8, : 
: 49 P 0985 S= : 
g 50 P 09 $Iz= 
: 26 P 09 IAN= 
; & P 09 LAN=1 
: 854 NXT=XABKEY1); 
: 55 991 
: 856 P 0992 2 SXABKEY_INIT(XAB=XABKEY1, 


MAILSTSAR_SUBS ISAM MAIL MESSAGE SUBROUTINES 
v04 


£ 
- - 4 7:54:01 VAX-11 TA 32 v4.0-742 ge 1 
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; 7 P 0993 KREF=1, 

; 34 P 934 FLG=(DOP, »CHG,NUL), | 

; 860 P 099 POSO=SBYTEOFFSET(MFR_T_FILEKEY), 

; 86) P 99 S12 =MFR_S_FILEKEY, 

* + 3 ° 

; £0 P 338 DAN=2, 

Bes P 1901 LAN= 9" | 

: Beg 0¢ NXT=05; 

: Be 1004 2 ST ATUS = $CREATE(FAB=.IFAB); | 

; He i he ou _ UIC NEQ 0 

: 871 1 8$ AND “SND _XABPROCXABSL_UIC] NEQ .UIC 

; 876 1008 3 THEN BEGIN | 

: 87 1009 SCLOSE (FAB=. = FAB): 

: 874 1010 STATUS = RMS 

: 875 1011 irAatrags L_STS) = RMSS_PRV: 

: 876 101g IF FABSL-STV) = SS$_NOPRiv; 

; ore 1014 SND KABPROCXABSL NXT] = 0; ‘Disconnect other XAB's | 

: 879 1015 2 IF NOT .STAT 

: 880 1016 THEN BEGIN 

: 881 101 IF .STATUS EQL RMSS_F 

: BBs 1919 THEN IF ai i “FILE TVBEC. ORG EaL FABSC_SEQ | 

; BBz 19 0 N THEN N STA TATUS = SRaSS 3 'If sequential, return RMS$_SHR 

> 885 1021 RETURN STATUS 

aed oe 

: 888 1024 2 IF NOT .IFAB[SFAB_DEV(DIR)] 

; aso 1025 OR ; IFABLSFAB~DEV(FOR) J 

: 890 10 6 THEN BEGIN 

: 891 10 SCLOSE (FAB=. IFAB) : 

F 892 1028 STATUS = $S$ IVDEVNAM; 

; 89 1069 1FAB FABSL_STS) = SS$_IVDEVNAM; 

: 894 1030 IFABLFABSL~STV) = 0; ~ 

: 895 1031 RETURN . STATUS 

i) 3 Ee 

; 898 P1034 ¢ SRAB_INIT(RAB=. 1RAB, 

: 900 1036 RAC=KEY); 

: F_ERR( CONN CT(RAB=.IRAB); 

F 30 4 1930 ——" FABSL_STS) = .IRABCRABSL_STS); 

> 904 P 1040 FAB FABSL~STV) = .IRABLRABSL~STVJ; | 

; 905 1041 RETURN .STATUS); 

: 906 1048 RETURN TRUE | 

: 907 104 1 END; | 
! 


SRMS_PTR= SND_XABPRO 
.EXTRN SYSSCREATE | 


| 


F 6 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54: VAX=11 Bliss-32 V4.0-742 Page 32) 
v04 18-808- 1382 ° 23:9) DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 © 15 | 
O7FC 00000 ENTRY MAILSCREATE_ ISAM, Save R2,R3,R4,R5,R6,R7.- ; 0879. 
A 000 E 000 MOVAB SYSS$CLOSE, R10 : | 
3 800000 o° 65 E $609 MOVAB SND_XABPRO, R9 : 
; FF E 19 MOVAB =248(SP), SP : 
990000 G ¢ 1 MOVZWL MAIL$Q_MAILDEF, DEFLEN : 0927 
57 000000006 p I MOVL  MAILSQ"MAILDEF+4, DEFADR + 0928 
07 6¢ 1 000 CMPB sé AP), 87 + 0929 
10 1F 00 6 BLSSU I$ : 
1c =AC DS 00 TSTL  28(AP) : 
0B 13 00028 BEQL ~=séséaT'$ : 
50 10 OA p 00 D MOVL  DEFDESC, RO + 0931 
a 60 3¢ 00031 MOVZWL (RO), DEFLEN : 
57 04 AO D6 00 MOVL  4(ROS, DEFADR + 0932 
14 04 AC 00 00038 1$: MOVL  IFAB, R6 + 0946 
0050 8F 00 bE 06 2¢ 0005¢ MovcS #0, (SP), #0, #80, (RO) ; | 
66 5003 8F BO 00044 MOVW #20683, (R6) : 
16 6 OF OF Br B0 00049 MOVW #3855, 22(R6) : 
18 A6 OO7E10A2 8F DO 0004F MOVL #8261794 24(R6) : 
1D AG 20 90 00057 MOVE #32, 29(R6) : 
1F Ab g 90 00058 MOVB #2, 31(R6) : 
24 «Ab 6 H 005F MOVAB  SND_XABPRO, 36(R6) : 
28 «AG OC AC 0O 00063 MOVL INAM, 40(R6) : 
50 10 AC 00 00068 MOVL §-NAMDESC, RO : 
2c A6 04 ad 00 006¢ MOVL 4 (RO), 44(R6) : 
0 Ab 57 dO 00071 MOVL  DEFADR, 48(R6) ; 
34 AG 60 90 00075 MOVB (RO), 52(R6) ; 
35 AG 58 90 00079 MOVB OD FLEN, 53(R6) ; 
36 AG 0800 8F B0 0007D MOVW #2048, 54(R6) : 
04 Ab 01 05 000000006 00 FO 90083 INSV IL$SB_DFW, #5, #1, 4(R6) + 0948 
50 18 AC 01 : EF 0080 EXTZV #2, #17 FLAGS, RO + 0949 
07 Ab 01 01 FO 0009 INSV RO. #1, #1, 7(R6) ; 
04 18 AC 0 Ei 00099 BBC 8 FLAGS : 0950 
17 6 20 0 9009 MOVB #32, 23(R6) > 0951 
06 19 ac 1 €1 QOOA2 2% BBC #1, FLAGS+1, 3$ : 095 
4A Ab 02 00 01 FO OO0A INSV #1. #0, #2, 74(R6) > 095 
0058 «BF 00 6E 09 2c GO0AD 3$ MOVCS #0, (SP), #0, #88, S$RMS_PTR : 0956 
69 5813 8F BO 60085 MOVW #22547, $RMS_PTR ; 
04 Ad EO AD 3 OOBA MOVAB XABALLO, $RMS_PTR+4 : 
OC Ad 14 ac 00 000BF MOVL UIC, SNO_XABPRO+12 : 0957 
08 a9 34 AE 000C4 MNEGW #52, SND-XABPRO+ : 0958 
20 00 6E ; 00 2¢ C8 MOVCS #0, (SP)> #0, #32, $RMS_PTR > 0965 
EO AD 2014 BF 80 OOCF MOVW #8212, SRMS_PTR ; 
£4 AD cO AD DS MOVAB X ALL SRAS PTR+4 : 
£8 AD 0 9 ODA MOVB «#32, - SRMS_PTR? ; 
Fo OAD F 8 D MOVW #15, S$RMS~PTR+20 : | 
F6 AD 5 90 000E MOVB. #5, $RMS_PTR+2 ; | 
20 00 tf * 00 2c OE6 MOVCS #0, (SP)> #0, #32, SRMS_PTR : 0972 | 
cO AD 2014 8F B80 O00E MOVW #8212, SRMS PTR : 
(4 AD A0 AD F MOVAB X ALL2 SRAS PTR+4 ; 
(8 AD F MOVB #3 _PTRT : 
D4 AD 01050005 8F p FC MOVL #171049017 $RMS_PTR+20 ; 
20 00 6E 0 2C 00104 MOVCS #0, (SP), #0, #32, SRMS_PTR : 0979 
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8212, SRM 


#8212, 

XABKEYO Sane. PTR+G 

#32, $R ‘- PTR 

#33751043, $RMS_PTR+20 

#0, (SP), #0, #76, SRMS_PTR 


#19477, $RMS_PTR 
XABKE KeVi “Shs PTR+4 
? S PTR+8 
ni798 0 stae PTR+18 
#0, (SP)> #0. #76, SRMS_PTR 


#19477, $RMS_PTR 
#314, anes, prRs8 


HS Ht <prns 8 


SRMS~PTR+30 
Bs, SRMS_PTR+46 


i, SYSSCREATE 
0, STATUS 


US, 4$ 
af 
FeO AABPROO IS, UIC 


R 
#1, SYSSCLOSE 


STATUS, 5$ 
STATUS, #98954 

R6 

#1, FIND_FILE_TYPE 
RO, 7$ 

9R6) 

#100020, STATUS 


#3, 64(R6), 6% 
67(R6), 8$ 


R 
#1, SYSSCLOSE 
¥ $4, STATUS 
#324. B(R6) 
12(R6) 
STATUS, RO 


IRAB, R7 
#0, (SP), #0, #68, (R7) 
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; Routine Size: 


533 bytes, 


ISAM MAIL MESSAGE SUBROUTINES 


67 
1€ A? 
x¢ A? 
000000006 69 
6 

08 
50 


Routine Base: 


4401 8F 


08 29 


SCODES + 070C 


6 
“Sep-1984 00:54:01 
“Sep-1984 12:42:20 


94408 


R6, 
#1 


sritus 


VAX-11 Bliss-32 V4.0-742 
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(R7) 
30iR7) 
(R7) 


SYSSCONNECT 


(R7), 8(R6) 
#1, RO 


3 
(10 


z 


SP 
Wn 
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6 
OAILEISAR. SUBS ISAM MAIL MESSAGE SUBROUTINES 1b-Se0-1984 90:34 :9 


; 308 ' ‘ ' GLOBAL ROUTINE MAILSUPDATE_I_MSG = 

; 11 § FUNCTIONAL DESCRIPTION: 

5 318 : 8 } : Update the header record of the current message 

: 315 : } ; INPUTS 

; $7 : § ; MAILSL_CURMSG points at current msg 

: 919 1054 2 BEGIN 

: 359 1986 5 BIND 

3 3 4 1987 MMH = MAILSL_CURMSGCMMB_T_HDREC] + SBYTEOFFSET(MFR_T_DATA) 
: 926 1059 2 MAILST_RD_RABCRABSL_RFAO = MA L$L_CURMSGCHMB_L _RFAO); 

; 925 1060 2 MAILST“RD-RABLRABSW_RFAG) = AILS xCURASG MMB u “REAG): 

: 926 1061 MAILST_RD_RABCLRABS$B_RAC] = 

: 927 106¢ MAIL$T~RD-RABLRABSL_RBF) = RaTtSc MUERSECANS T_HDREC); 

: 928 1 MAILS$T~RD-RAB RABSU_RSZ = .MAILSC_CURMSGCHMB_O _HDRECLEN); 
; 9¢9 1064 2 MAILST“RD-RABCLRABSL_ROP) = 0; 

: 9 1065 2 MAILST-RD-RABLRABSL CTX] = MAIL$_WRITEERR 

: 931 P 1066 2 IF_ERRTSFIN DCRABSMATL ST “RD_RAB, LEAR CUTIE SREPORT.. 10_ERROR);, 
: 93¢ 1067 RETURN .STATUS): 

: 934 P 1069 @ IF_ERR(SUPDATE (RAB=MAILST_RD_RAB,ERR=UTILSREPORT_I0_ERROR);, 
: 935 1070 RETURN .STATUS); 

: 938 1973 

; 3 1978 3 Update flags in module header 

: 940 1075 AAILSL _CURMSGCMMB_V_NEWMSG)] = .MMHCMMH_V_NEWMSG); 

: 941 1076 malt =CURASG MMB-V-REPLIED] = .MMHCMMA_V_REPLIEDI; 

; 9e 107 RETU RUE 

: 94 1078 1 EN 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 


: SBBLOCK; 


~-EXTRN SYSSUPDATE 


55 00000000" 00° aE popes AOVAB RAICSY TURNSED Re’ fone R2-RS.RG.RS 
54 000000006 00 9E 000 MOVAB UTILS SREDORT 16_ERROR, R4 
33 000000006 09 9 9019 MOVAB MAIL$T_RD_RAB,"R Rs 
65 D 1 MOVL mal st CURMSG. R 
3¢ 77 AO 9E OOOIA MOVAB 119(ROT P 
10 A 60 DO 0001 MOVL (RO), MAILS$T_RD RABS16 
14 a3 04 Ad 80 9 MOVW  4(ROS, MAILST_RD RAB+20 
28 A 47 oe 9 ROVA af RAILST RD Re baa+40 
g ‘3 iH a0 80 0 mov 17(RO) a. MALLST RD-RAB+34 
18 A3 O07E10D0 8F DO VL mizeis £0, “RAILS _RD_RAB+24 
18 BB 0004 PUSHR 
000000006 90 Q F 4 CALLS ee mst 
E 4 BLBC 1s. a! 
18 6B 0004C PUSHR statu R4> 


Page 43} 


1044 


1057 


1059 
1060 


S55585 


1070 
| 


— $ $ ee s- MA] 
Cee een aN ib-se 3377 188s 93:23:85 | BN anGhaSteRscHAiS, Se aisues.e32;1 2% =a vo. 
000000006 09 Q F 4 CALLS #2, rSUSSUBDATE : 
4 i BOVE OBA Arys. URMSG, RO ‘ 1075 
OA ag 01 p F 8 INSV (na) one » 10(RO) : 
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0 01 pO 0006C MOVL ; : 1077 
04 O006F 18: RET + 1078 
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Hye ti 137808-1 982 99:2 42: 9 DISKSVMSMASTER: CMAIL.SRCJISUBS.832;1 ° 35 v04 
; oH } 79 } FL CSAL ROUTINE MAILSREAD_INFO_REC(MAILRAB, INDEX,LOCKFLAG,RECDESC,RECRFA) = ; ; 
; 3 ! i i FUNCTIONAL DESCRIPTION: | : } 
; rk 1 j 1 i Read the specified info record : 1 
: 950 1084 1: 21 
; 951 1085 1 ! INPUTS: | 

3; 9 § 1 1! 

; 9 1 1! MAILRAB = address of rab connected 

; 954 1 88 1 INDEX = info record index 53 
; 955 1089 1! LOCKFLAG = 7 to Lock record, 0 to not 

; 9 § 1 4 1! RECDESC = addr of 2-lw vector to return record descriptor in 

3 ; H : : RECRFA = (optional) addr of 2-lw vector to return RFA of record 4F 
3 33g 1098 1 l= 

; 960 1094 BEGIN 

: 961 Ieee 

; 308 1 98 MAP 

; 96 109 MAILRAB : REF SBBLOCK, 

; 964 1098 RECDESC : REF VECTORC,LONG), 

; 965 1099 RECRFA : REF VECTORL,LONGJ; 

: 966 1100 

: 967 1101 BUILTIN 

; 968 1358 NULLPARAMETEh;: 

; 969 110 

; 970 1104 CAL 

: 971 1105 STATUS 

3 376 1196 COUNTE 

; 97 110 KEYBUFFER : VECTOR(8,BYTE); 

: 974 1108 

; 975 1109 LITERAL 

; 976 1110 RETRY_RLK = 10. ! number of retries for a locked record 

: 977 1111 SLEEP_RLK = 75; ! ms to sleep before retrying 

; 978 aA 

; 979 111 BIND 

; 980 1114 ! 

; + 41)2 : Define the delta time to sleep before retrying to GET a locked record. 

3 388 119 WAKEDELTA = UPLIT LONG(-10*1000*SLEEP_RLK,-1), 

3 one 1333 LWBUF = KEYBUFFER : VECTORC,LONGJ; 

; 986 1120 IF or Sh LPORAEE TERED? 

: 383 i : — RECRFALO 

> 989 11 4 sane }: 8: | 

; 990 1124 

: 393 i 3 LWBUF CO INDEX; | 

: 998 1 $ LWBUF FES }: 0; 

: 995 1159 MAILRABCRABSL ROP] = RABSM_LOC; | 

i 996 1130 2 MAILRABLRABSB_KRF) = 0; 

; 99 1131 RAILRAB RAB$B_KSZ) = 8; 

; 998 11 ; MAILRABCRABS$B_RAC) = RABSC KEY; 

: 999 11 MAILRABCRABSL_KBF) = KEYBUFE FER; 

; 1000 1134 IF NOT .LOCKFCAG 

; 1001 1135 THEN MAILRABLRABSV -NLK) = TRUE; 


+ be AM_SUBS ISAM MAIL MESSAGE SUBROUTINES 


IF_ .LOCKFLAG 
THEN a Prete 


COUNTER RLK 
WHILE R(STATUS. =" $cE 1 (RAB=.MAILRAB)) EQ. itss. RLK) 
AN OUNTER = NTER = 
DO IF SSCHDWK(DAYTIM = WAKEDELTA) COUEN SHIBER; 
IF Nor STATUS 
THEN RETURN .STATUS; 


END 
ELSE _IF NOT (STATUS = $GET(RAB=.MAILRAB)) 
THEN RETURN .STATUS; 


me coe sched = .MAILRABCRABSW -Re? 3} 
RECDESCC1) = .MAILRABLRABSL_RBF 


IF wr + alpatainahieaaia 


THEN B 
nPEREAEDY CA ee RFAQ); 
RECRFAC1 MAILRABCRABSW_RF AG); 


ND 
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000182AA = BF : Di 3 CRPL 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16- Sep-1984 00:54: VAX-11 Bliss-32_V4.0-742 P 
VOL+008 300-1 38e ? 23:90 DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 29445 
04 00090 6$: RET ; 1227 


; Routine Size: 145 bytes, Routine Base: S$CODE$S + OA4C 


sn 


| 
d 7 
MAILS1SAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1986 00:54:01 VAX=11 Bliss-32 V4.0-742 Page 43 
v04- 14-Sep-1984 12:42:20 DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 (14) | 
; 1096 1228 1 ROUTINE RECLAIM_HANDLER (SIGARG,MECHARG) = 
; 109 1229 1 !44 | 
: 1998 } 9 | | FUNCTIONAL DESCRIPTION: 
; 1199 1 § ! ; Handler enabled when CONVSRECLAIM is called. 
: 1108 1234 1 ine | 
: 1103 1235 panes 
: 1105 1 $ ROUTINE PUT_OUT (DESC) = (LIBSPUT_OUTPUT(.DESC); RETURN 0); 
0000 00000 PUT_OUT:.WORD Save nothing 3; 1237 
04 AC ODD 00002 PUSHL DESC 3 
000000006 00 01 FB 00005 CALLS #1, LIBSPUT_OUTPUT 3 
50 D4 0000¢ CLRL RO ; | 
04 0000E RET 3 
; Routine Size: 15 bytes, Routine Base: $CODE$S + OADD 
; 1106 1238 2 
3 1107 1938 MAP 
3 1108 1240 SIGARG : REF $BBLOCK, 
: 1109 1241 MECHARG : REF $BBLOCK; 
: 1110 1269 
31111 126 BIND 
; 1136 Hoe: : SIGNAME = SIGARGCCHFSL_SIG_NAME] : $BBLOCK; | 
: 1114 1246 IF .SIGARGCCHFSL_SIG_NAME] EQL SS$_UNWIND 
: 1115 1947 THEN RETURN SS$_CONTINUE; 
: 1117 1249 IF .SIGARGCCHFSL_SIG_NAME] EQL SS$_ACCVIO 
3 1118 1520 § THEN RETURN SS$_RESIGNAL; 
: 1120 125¢ 2 SIGNAMECSTS$V_FAC_NO) = MAILS FACILITY; 
: 1121 125 é IF .SIGNAMECSTSSV-SEVERITY] EGL STS$K_ SEVERE | 
3 1166 1938 THEN SIGNAMECSTSS$V_SEVERITY] = STSS$K_ERROR; 
: 1124 1256 SIGARGCCHFS$L_SIG_ARGS] = .SIGARGCCHFSL_SIG_ARGS] - 2; !Don't count pc/psl | 
: 1125 P 1257 SPUTMSG(MSGVEC=STGARGCCHFS$L_SIG_ARGS), 
3 1126 1258 ACTRTN=PUT_OUT): 
3 1}6r ! 2 SIGARGCCHFSL_SIG_ARGS] = .SIGARGCCHFSL_SIG_ARGS] + 2; 
: 1129 1261 SETUNWIND(); 
> 11 1 6¢ RETURN 0 
: 1131 1263 1 END; 
-EXTRN SYSSPUTMSG 
0004 00000 RECLAIM_HANDLER: 
“,WORD Save R2 : 1228 | 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-56 =Sep-1984 1 VAX=11 Bliss-32 V4.0-742 P 64 MA] 
yoeeobe ence 8Re 99:23:8, Peek eade tea cMhil She arsues.e3251 om cree | voe 
2 6 ac Dd MOVL  SIGARG, R 5 1266) 
00000920 b2 ag b 3 CHL &«R2), #3836 : 1546. 
50 1 8 19 MOVL #1, RO t 1247) 
04 901 RET : 
0c 06 A2 01 Or 1$ CMPL  4(R2), #12 t 1249) 
6 12 00018 BNEO 2$ : 
50 0918 &F 3¢ O01, MOVZUL #2328, RO ; 1250) 
06 A2 0 00 0000007E 8F FO 60 0 28: INSV 4126, #0, #12, 6(R2) + 125 
04 06 =A 0 0 F 002A CMPZV #3, 4¢R2); + 125 
0 00 BNEQ : 
04 A2 03 09 FO 00 INSV nbs #0, 3. 4(R2) + 125 
é 9 ¢ 0038 3$ SUBL2 > 125 
— 7C 000 CLRO (bp) + 125 
B1 AF 9F 000 PUSHAB PUT Pour : 
52 DD 0004 PUSHL R ; 
000000006 09 4 FB 004 CALLS #4, SYSSPUTMSG ; 
6 2 ¢ 004 ADDL2 #2. (R2) + 125 
C 0004C CLRO. = (§P) t 126 
000000006 00 9 FB OO04E CALLS #2, SYSSUNWIND ; 
D4 0005 CLRL = RO : 126 
04 00057 RET : 126 
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; Routine Size: 88 bytes, Routine Base: SCODES + OAEC 
| 


fF 7 
MAILE TSAR. SUBS ISAM MAIL MESSAGE SUBROUTINES 19-3007 128% 99:35:91 VAX=11 Bliss-32_ V4.0-742 Page 45 
14-Sep-1984 12:42:20 ISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 (15) 


: i 3 64 ROUTINE CALL_RECLAIM (STAT_FLAG) = 

; i 5 6 i FUNCTIONAL DESCRIPTION: 

3 11 1268 1! Call CONVSRECLAIM. If errors, will unwind to caller of this 

: 1138 1 § 1! routine. 

: 1139 1270 1 i-- 

: 1140 1271 2 BEGIN 

> 1161 1 re 

; 1148 127 
: 1146 1274 RECLAIM_ROUTINE; 

> 1164 1275 | 
: 1145 1 i: LOCAL 

: 1146 127 STATUS 
> 114 1278 STATVEC : VECTORCS,LONG); 

> 1148 1279 

: 1149 1 80 BUILTIN 
: 1150 1281 FP; | 
: 1151 1 Ht 
; 1138 128 CHSFILL(O,5*4,STATVEC); 

> 115 1284 2 STATVECLOS = 4; 

> 1154 1285 2 IF .RECLAIM ROUTINE EQL 0 

> 1155 P 1 86 THEN IF_ERRTLIBSF IND_IMAGE_SYMBOL (SD_CONVSHR, SDESCRIPTOR(*CONVSRECLAIM’), 

: 1196 P 128 RECLAIM_ROUTINE);, 

: 115 1288 RETURN .STATUS); 

: 1158 1289 

: 1159 1290 2 .FP = RECLAIM_HANDLER; | 
> 1160 1291 2 STATUS = (.RECLAIM_ROUTINE) (MAILSQ_RD_DESC,STATVEC,%REF(1)); 

> 1161 1 3 IF .STATUS 
: 1162 129 AND .STAT_FLAG | 
: 116 1294 THEN SIGNAL (MAIL$_RECLSTAT,%X'10004' 
> 1164 1295 .STATVECLTJ,.STATVECL2J,.STATVECL3], .STATVECL4)); 
> 1165 1 3% .FP = 0; 

: 1166 129 RETURN .STATUS 

> 1167 1298 

> 1168 1299 1 END; 


4D 49 41 4C 43 45 52 26 56 4E B-AAN: ASCII \CONVSRECLAIM\ : 
"  TADDRESS P.AAM : 
.PSECT SOWNS,NOEXE,2 


00090 RECLAIM_ROUTINE: 
-BLKB 4 | 


-PSECT SCODES,NOWRT,2 
OOFC 00000 CALL_RECLAIN: 


: Save R2,R3,R4,R5,R6,R7 : 1264 
57 00000000" 00 ge $008 ROVAB RECLAIM ROUTINE. R? 
ze 18 ¢ $600 SUBL2 #24, §P : 


; Routine Size: 121 bytes, Routine Base: S$CODE$ + 0B58 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1 =1984 00:54:01  -VAX=-11 Bliss-32 V4.0-742 Page 46 m 
v04 1 ats ri 90:25: 0  DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 9° 48) | V 
14 00 6E i 00 2¢ a8 MOVCS #0, (SP), #0, #20, STATVEC : 1283 
04 AE D 6 1 MOVL #6, STATVEC : 1284 
67 ° 1B Ist RECLAIM_ROUTINE + 1285 
00¢9 8F HY iF PUSHR #*M<R6,R7> : 1288 
F4C F ; PUSHAB Sp _CONVSHR ; 
000000006 09 FB CALLS 2 Lies ND_IMAGE_ SYMBOL : 
60 FFSE CF 3 f 1$: MOVAB RECLAIM_HANDLER, (FP) + 1290 
0 7 0D MOVL RECLAIM ROUTINE. RO + 1291 
6E 1D MOVL #1, (SPY : 
E BD C PUSHL SP ; 
08 AE OF E PUSHAB STATVEC ; 
000000006 9F 00041 PUSHAB MAIL$Q_RD_DESC ; 
$9 F 47 CALLS #3, (RO) : 
; D 4A MOVL RO, STATUS : 
2 E9 00040 BLBC STATUS, 2$ ; 1292 
1F 04 AC €9 00050 BLBC = STAT_FLAG, 2$ ; 129 
14 AE DD 00054 PUSHL STATVEC #16 + 1295 
14 AE 0D 00057 PUSHL STATVEC+1 ; 
14 AE DD 0005 PUSHL STATVEC+8 F 
14 AE DD 0005D PUSHL STATVEC+4 F 
00010004 8F DD 00060 PUSHL #6554 + 1294 
OO7EBE9B 8F DD 00066 PUSHL #8306331 : 
000000006 00 06 FB 9006 CALLS #6, LIBSSIGNAL ; 
gp D4 00073 28: CLAL + 1296 
50 2 D0 0007 MOVL = STATUS, RO : 1297 
04 00078 38: RET : 1299 
| 
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SSSLSSR ANAS SSLESL ON ESSN CRORE SSIS IANS 


1984 12:23:20 DLSKSVMSMASTERSCMAIL. SR 
ye ROUTINE MAILSRECLAIM(STAT_FLAG) = 

i FUNCTIONAL DESCRIPTION: 

Sag Feng current ISAM file, call CONVSRECLAIM, and then re-open 


INPUTS: 
STAT_FLAG = 1 to print stats, 0 to not 


BEGIN 


“RECDESC : alt toncse LONG). 
RECPTR F SeBL0ck 
oe xtue : VECTOR LONG), 


MAILSDISABLE_CTR 10; 
SCLOSE (FAB=.MAIL$T_RD_RABCRABSL_FABI); 
RAILSGL TECAGSEMALF “V_FILOPN) = 0; 


STATUS = CALL RECLAIM(.STAT FLAG); 
MAILSOPEN_FILE(MAIL$Q_RD_DESC); 


Zero the count of deleted messages in the fileinfo record 


ir Tus 
THEN It MAILSREAD_ INFO_REC(MAIL$T_RD_RAB,MFR_C_FILEINFO,1,RECDESC,RECRFA) 
THEN BEGIN 
RECPTR = sRECDES ESCC1); 
(RECPTRIMFR T DATA])<0, 32,0> = 0; 
MAILSL OD DELMSGCNT = 
ILSUPDATE. INFO_ REC(MAILST _RD_RAB,RECDESC,RECRFA); 


ag Lee of -CTRLY(); 
AN allan 


001C 00000 ~ENTRY aren nity Save R2,R3,R4 
4 +3 AF 9€E 00002 MOVAB CALL gett RG 
3 000000006 0 H 006 HOVAB MAIL ARAB, R3 
10 ¢ SUBL2  # $1 Rd 
000000006 00 FB 0001 CALLS #0 ioc CTRLY 
00000006 . 01 Pe iA tite BALLET ROR 
00000006 88 8 BA 1 grt +8 MAIL 6 SFLAGs#1 
06 AC OD 8 PUSHL $I T FLAG 
$6 9 FB 8 CALLS . CALL_RECLAIM 
2 0 D E MOVL + STATOS 


<z 
> 


el el el 


—t od 


7 

MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1b-se =1986 00:54:01  VAKX-11 Bliss-32 V4.0-742 Page 48 mA] 
V04+000 132808-1 984 99:23: 0  DISKSVMSMASTER:CMAIL.SRCJISUBS.832;1 916) v04 
000000006 00 9F 1 PUSHAB MAIL$Q_RD_DESC ; 1325) 2] 
000000006 90 1 FB ;; CALLS #1 MATLSOPEN. FILE : :] 
C 7% BLBC = STATUS, 1 : 1329 :) 
E DD 0004 PUSHL_ SP ; 1330 :] 
0c AE 9F 0004 PUSHAB RECDESC ; : | 

DD 46 PUSHL # ; | : 
DD 0004 PUSHL # : | :] 
DD O004A PUSHL R ; 2) 
FEGG = CG g FB 0004C CALLS #5, MAILSREAD_INFO_REC ; : 1 
19 0 €9 00051 BLBC = «aRO,_‘18 ; :] 
50 C AE DO 00054 MOVL  RECDESC+4, RECPTR : 1332 :} 
0 Ad D4 0 38 CLRL  48(RECPTRS : 13 : 1 
00000000" 9 D4 B CLRL MAILS$L_DELMSGCNT 21 :] 
E DD 00061 PUSHL ; 1335 :] 
OC AE 9F 00065 PUSHAB RECDESC 3 71 
53 0D 0066 PUSHL R ; 7] 
FEF4 C4 03 FB 0006 CALLS 43, MAILSUPDATE_INFO_REC ; : 
000000006 00 90 FB 90060 1$ CALLS #0, MAILSENABLE_CTRLY ; 1338 i] 
50 1 D0 00074 MOVL #1, RO ; 1339 :] 
04 00077 RET ; 1340 3] 
; Routine Size: 120 bytes, Routine Base: SCODE$ + 0BD1 : ! 
31 


MALLET SAR. SUBS ISAM MAIL MESSAGE SUBROUTINES bese ~ge0n 1386 99: ? : 


4 VAX-11 Bliss-32 V4.0-742 Page 49 
14-Sep-19 2: R: 7) 


1 
3) DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 a 


MA] 
V 


2 


; ' 13 4] } ROUTINE CALL_CONV_COMPRESS(FLAGS,INDESC,TMPDESC) = : } 
3 ei ‘§ FUNCTIONAL DESCRIPTION: | | 
31 6 1345 1 | Call convert to copy the input file to SYSSLOGIN:CONVRTMAI.TMP : | 
; ! ' i $ } This file will then be renamed : 
: ! 13 ! rh: ! ; Inputs: : 
: 1201 1 20 1! INDESC = Address of descriptor of input file :] 
: ; 1 TMPDESC = address of descriptor of temporary output file : 
> 1204 1 36 BEGIN 71 
: 1225 1354 MAP 3 | 
: 1986 1355 FLAGS : BITVECTOR; : 
1558 1389 5 OWN 3] 
: 1229 1358 CONV_PASS_FILES, i] 
31 1359 CONV-PASS “OPTIONS, : | 
: 1931 1360 CONV- CONVERT; : 
1533 136¢ ¢ LOCAL : | 
3: 1 1 STATUS. :] 
> 1235 1364 OPTION ARRAY : VECTORL7,LONG), 
i] 1 5 STATVEC : VECTOR LONG); F 

; 1238 BUILTIN 

> 1240 1 " 

; 41 CHSFILL (0, 5s 524 pSTATVEC) 

; 1248 CHSFILL(O, 724, , many ARRAY); 

: : vi \ If this is first time, then get addresses of CONVERT routines. 

; ¢f IF «CONV PASS_FILES EQL 0 

> 1249 P 1 IF _ERR(LIBSF IND_IMAGE SYMBOL (SD CONVSHR SDESCRIPTOR( CONVSPASS_FILES"), 

> 1250 P 1 ON_PASS_FILE 

> 1251 1 RETURN .STATUS) 

31 3¢ P 1 IF ERR(LIBSF IND_ IMAGE _SYMBOL (SD_CONVSHR, SDESCRIPTOR('CONVSPASS_OPTIONS"), 

> 125 P 1 CONV_PASS_OPTIONS);, 

: 1254 1 RETURN .STATUS) 

; ! s p IF _ERR(LIBSFIND_ IMAGE ~SYMBOL (SD. COMVSHR «SDESCRIPTOR( CONVSCONVERT"), 

; 33 ep ,RETURN «STATUS) ; bs 

> 1259 1 : | 

3; 1260 1 -FP = RECLAIM_HANDLER; 

> 1261 1 if NOT (STATUS = (, CONV. PASS_FILES)(. INDESC,.TMPDESC,SD_NL.SD_NL. REF (1))) | 

:1 6¢ 1 THEN RETURN .STATUS: 

3; 126 1 OPT ION_ARRAY = 6; '# of options 

; 1264 1 OPTION_ARRAY = 1; Hye cone 

> 1265 1 OPTION-ARRAYL6) = 0: 

: 1266 1 IF NOT (STATUS = (- CONy _PASS OPTIONS) COPTION. ARRAY, ZREF(1))) 

> 126 1 THEN RETURN .STA 

> 1268 1 STATUS = (.CONV_ CONVERTS (STATVEC, REF (1)); 


57? | 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01  VAX=11 Bliss-32_v4.0-742 Pa 0| MAI 
yOLtobS er een te 98:25 38 Pee kale eRe MAIO eRe rsues.e32:1 ad v04 
: 1269 1 FP = 0; : 1 
4 1 1398 § if? Srftus 4 
> 127 1400 THEN SIGNAL(MAILS$_COPIEDR,3,.INDESC,.TMPDESC, .STATVECL2); 7] 
:4 i 1401 2 RETURN .STATUS : 4 
: 127 14 ¢ s 1 
: 1274 14 END; : : 
: 
53 45 4C 49 46 SF 53 53 41 50 26 56 GE 4F 43 00C49 P.AAO: .ASCII \CONVSPASS FILES\ : 31 
i a a : q 
4F 49 54 SO GF SF 53 53 41 50 26 56 4E 4 “3 ie P.AAQ: ‘ASCII \CONVSPASS_OPTIONS\ : 3 | 
C71 : . :1 
90000011 a P.AAP: .LONG 17 F :1 
0000009" 0C78 “ADDRESS P.AAG : : 1 
54 52 45 56 GE 4F 43 26 56 GE GF 43 OOC7C P.AAS: <ASCII  \CONVSCONVERT\ : 71 
0000000¢ O0c8E TAAR: .LONG : 31 
00000000" 00C¢8C “ADDRESS P.AAS : : 
.PSECT SOWNS,NOEXE ,2 i] 
00094 CONV_PASS.FILES: | i] 
00098 CONV_PASS OPTIONS: 3 } 
0009C CONV_CONVERT: 31 
-BLKB ; . 
i 
-PSECT SCODES,NOWRT,2 i] 
O1FC 00000 CALL_CONV_COMPRESS: $1 
.QORD Save R2,R3,R4,R5,R6,R7,R8 : 1341 :1 
58 000000006 00 9€ 00002 MOVAB LIBSFIND IMAGE SYMBOL, R8 : 71 
57 00000000' 00 9€ 00009 MOVAB CONV_PASS FILES, R7 F :1 
56 F374 CF Hi 90010 MOV SD_CONVSHR, R6 : 31 
SE 4 C2 0001 sual "52, SP ; :1 
14 00 6E a 00 2c 0018 MOVCS #0, (SP), #0, #20, STATVEC + 1370 ; 
04 AE 04 D0 O001F MOVL #4, STATVEC + 1371 : 1 
1¢ 00 6E se 00 2c 00 ; MOVCS #0. (SP), #0, #28, OPTION_ARRAY : 1372 ; 
D5 00 A TSTL SONV_PASS_FILES : 1376 $1 
¢ 1 0 C BNEG $ : 71 
pp 0 PUSHL R7 : 1380 :1 
0c40 C6 9F 000 PUSHAB P.AAN : 51 
DD PUSHL Ré ; :1 
68 FB CALLS # L 1BSF JND_IMAGE SYMBOL : :1 
1B 7 BLBC Atus, 1 : 31 
04 A? OF C PUSHAB CONV_PASS_OPTIONS : 1383 71 
OcSc C6 OOF F PUSHAB P.AAP : :1 
DD 0004 PUSHL Rs ; : 1 
68 FB 0004 CALLS #3, L IBSF IND_IMAGE, SYMBOL : | > 
C E 4 BLBC = STATUS, 1 ; | 31 


) 


7 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 18-Sep-19 4 00:54:01 VAX-11 Bliss-32 V4.0-742 e 51 MA] 
yOLtobo 12-8 08- 1384 98:23: 0  DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 Pag a} | v04 
A? 9F 00048 PUSHAB CONV_CONVERT + 1386) 71 
0c 6 OF Od PUSHAB P.AAR ; :] 
DD 2 PUSHL RG : :] 
$8 FB CALLS #3, LIBSFIND_IMAGE_SYMBOL : : 1 
f 7 1$: BLBC AT : 3] 
gp FOFE CF A 28: MOVAB RECLAIM HANDLER. (FP) ; 1389 3 
0 7 DO 0005F MOVL § CONV_PASS_FILES, RO ; 1390 :] 
6E 1 0 906 MOVL 1, TSP) : 3 3 
E DD 0006 PUSHL_ SP : | : 1 
1¢ AG 9F 0006 PUSHAB SD_NL : .) 
IC AG 9F OO0GA PUSHAB SD"NL ; :] 
3 08 aC N) 0060 mMOVa INDESC, -(SP) ; i] 
6 Q FB 1 CALLS #5, (RO) : 31 
52 0 00 00074 MOVL RO, STA Tys : 3 1 
4D 52 £9 00077 BLBC TATUS, 3$ F :] 
18 AE 06 DO 0007A MOVL #6, OPTION_ARRA : 1392 ; 1 
24 «AE 1 D0 0007 MOVL #1, OPTIONARRAY+12 + 139 31 
30 AE D4 0008 CLRL OPtION A RRAY+24 + 139% 31 
50 04 a? 00 0008 MOVL CONV PRSSY OPTIONS, RO : 1395 3 1 
6E 01 00 00089 MOVL #1, TSP) 3 3 1 
5E DD 0008C PUSHL 3 :1 
1C AE 9F O0008E PUSHAB OPTION ARRAY : 31 
60 98 FB 00091 CALLS (RO) : 31 
52 DO 00094 MOVL a0, STATUS : 31 
33 25 E9 00097 BLBC STATUS, 3$ ? 3 1 
0 08 A? DO 0009A MOVL § CONV_CONVERT, RO : 1397 31 
6E 01 DO O009E MOVL #i, TSP) 3 3 } 
5E DD OOOAI PUSHL $ ; 31 
08 AE 9F 000A3 PUSHAB STATVEC : :1 
60 02 FB 000A6 CALLS #2, (RO) : 31 
52 50 DO 000A9 MOVL RO, STATUS ; 31 
6D D4 OOOAC CLRL 3s CFP) : 1398 31 
16 52 E9 OOOAE BL STATUS, 3$ : 1399 31 
0c AE DD 00081 PUSHL STATVEC+8 : 1400 71 
7E 08 AC 7D 000B4 MCv'O INDESC, -(SP) ; 31 
03 DD 00088 PUSHL : 31 
007E1069  8F DD OOOBA PUSHL #8261737 ; :1 
000000006 00 0S FB 000C0 CALLS a, hLBSSIGNAL : 3:1 
50 52 00 000C7 3$: MOVL STATUS, RO + 1401 :1 
04 OOOCA 4$: RET : 1403 : ! 
; Routine Size: 203 bytes, Routine Base: $CODE$S + 0C90 . \ 
sj 
5 1 
aoa | 
a | 
| . 
3 1 
3 1 
¢ 1 
3 1 
¢ 1 
3 1 
s 1 
3 1 
' : 1 


] 
| 


m 7 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss-32 V4.0-742 Page 52) MA] 
v04- 14-Sep-1984 12:42:20 DISKSVMSMASTER: CMAIL.SRCJISUBS.832; 1 (18) | v04 
: } , 1406 GLOBAL ROUTINE MAILSCOMPRESS(FLAGS,OUTFILE,FDLFILE) = : } 
31 8 1406 1 ' FUNCTIONAL DESCRIPTION: 31 
: 127 1407 1! | : 3 
; 1 9 1008 } Compress the currently open file by use of CONVERT : } 
3; 1 S 1410 1 ! Inputs: : 1 
: 128 1411 1 31 
3 1284 oig 1! Flags = flags. None currently defined : 3 
: 1285 141 1! outfile = address of descriptor of output file. If not specified 3 1 
: 1286 14144 1! output file will be same as input le. 31 
3: 1287 1415 1! fdlfile = address of descriptor for fdl file. If not specified. : 1 
: 1288 1416 1! MAIL‘s default fdl description will be used. (NYI) 3; 1 
: 1289 1417 1 31 
3 1290 1418 1 !-- . 7 
: 1291 1419 2 BEGIN 31 
3 1 35 1420 MAP 3 1 
+ 129 1421 FLAGS : BITVECTOR, 31 
> 129% 14 2 OUTFILE : REF $BBLOCK, i] 
: 1295 14 FOLFILE : REF $BBLOCK: : 1 
3 1296 1424 2 1 
: 1297 1425 LOCAL : 
3 1298 1426 ATUS, : 1 
: 1299 1427 FILENAMEBUF : SBBLOCKCNAMSC_MAXRSS], : 1 
: 1300 1428 FILENAMEDESC : VECTORC2,LONG), :] 
: 1301 1429 DESC : VECT LONGI. : 1 
; 1308 1430 EN_DESC : VECTORC2,LONG) 33 
: 130 1431 RSS : CKCNAMSC_MAXRSS), ; 1 
> 1304 1432 2 NAMESS_: SBBLOCKENAMSC=MAKRSS3 | 4 
3 1305 143 OPENRSS : S$BBLOCKCNAMST_MAXRSSJ, 7] 
: 1306 1434 OPENESS : $BBLOCK[NAMSC_MAXRSSJ, 3] 
; 1307 1435 PROTBUF : SBBLOCKCNAMSC_MAXRSSJ, 2] 
: 1308 1436 OPEN_ : $FAB_DECL, 7] 
: 1309 1437 : OPEN : SNAM~DECL, : 1 
: 1310 1438 NEW _RAME : DYN_BESC_DECL, : 1 
+ 1311 1439 2 PROTFAB : $FABDECL : 1 
1318 1440 2 § PROTXAB : $XABPRO DECL, i] 
> 131 1441 PROTNAM : $NAM DECL, 21 
: 1314 1449 TFAB : $FAB_DECL, : 1 
> 1315 144 TRAB : $RAB~DECL. i] 
: 1316 1444 TNAM : $NAM“DECL: : 1 
; 1317 1445 3:1 
: 1318 1446 31 
: 1319 1447 2 STRSCOPY_DX(DYN_DESC ,MAIL$Q_RD_DESC); | :] 
: 1320 1448 2 MAILSCLOSE F t %; 71 
: 1321 1449 2 FILENAMEDESC(O) = NAMSC_MAXRSS; 
: 13¢@ 1450 2 FILENAMEDESCC1] = FILENAMEBUF ; 
3 13 1451 SYSSFAO(SDESCRIPTOR( "MAIL _'4XL_COMPRESS.TMP"),F ILENAMEDESC, 
: 1338 1636 FILENAMEDESC, .MAILSL_MYPID); 
: 1368 1438 : Always create using MAIL's internal description. /fdl not implemented. 
: 1354 1456 ‘IF .FOLFILECDSC$W_LENGTH) EQL 0 
: 1329 145 iTHEN BEGIN 
3 13 0 P 1458 SNAM_INIT(NAM=TNAM 
> 1331 P 1459 RSS=NAMSC_MAXRSS, 
: 1332 P 1460 RSA=NAMRSS, 
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g 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1h-sep-19 4 00:54:01  VAX=11 Bliss-32 V4.0-742 Page 55 
yoLtob0 127908- 1 3b 99:28: 0  DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 (18) 
52 50 4D 4F 43 SF 4C 58 34 21 SF 4C 49 41 4D OODSB P.AAU: . ASCII \MAIL_!4XL_COMPRESS.TMP\ ; 
34 4D 54 2E€ 53 3 23 ODGA oe : 
Op 1 .BLKB 
aah D74 P.AAT: .LONG 2 : 
0000000' 00078 “ADDRESS P.AAU : 
44 4C 4F Hi OD7C P.AAW: ASCII \.OLD\ : 
00000004 9080 P.AAV: .LONG 4 rs 
00000000" 00084 [ADDRESS P.AAW : | 
49 41 4D zt OD88 P.AAX: .ASCII \.MAI\ : | 
49 41 4D 2€ OOD8C P.AAY: <ASCII \.MAI\ : | 
OFFC 00000 ENTRY MAILSCOMPRESS, Save R2,R3,R4,R5,R6,R7,RB.- 3 1404 
5B 000000006 00 9€ 00002 MOVAB UTILSGETFILENAME, R11 : 
5a 000000006 00 9€E 00009 MOVAB SYS$CLOSE, R10 : 
59 D1 AF 9E 00010 MOVAB P.AAT, R9 : 
oR 00000000" 00 9E 00014 MOVAB DYN_DESC, R8 : 
5E F734 CE 9€E 0001B MOVAB “923 (SPS, SP : 
O1FC CE 020E0000 8F 00 00020 MOVL #34471936. NEW_NAME + 1438 
0200 CE D4 90 9 CLRL NEW_NAME+4 ; 
000000006 60 9F 0002D PUSHAB MAICS$Q_RD_DESC + 1447 
58 DD 00033 PUSHL R8 : 
000000006 00 02 FB 00035 CALLS #2, STRSCOPY_DX : 
000000006 00 00 FB 0003C CALLS #0. MAILSCLOSE FILE + 1448 
FEFB CD FF BF 9A 00043 MOVZBL #255, FILENAMEDES + 1449 
FEFC CD FFOO CD 9E 00049 MOVAB FILENAMEBUF, FILENAMEDESC+4 > 1450 
000000006 60 oD 00050 PUSHL MAILS$L_MYPI + 1452 
FEF8 CD 9F 00056 PUSHAB FILENAMEDESC + 1451 
FEF8 CD 9F OOO5A PUSHAB FILENAMEDESC : 
59 DD 0005E PUSHL R9 ; 
000000006 00 04 FB 00060 CALLS #4, SYSSFAO ; 
0 6E 00 2c 90067 MOVCS #0, (SP), #0, #96, $RMS_PTR : 1462 
8F BO O006F MOVW #24578, $RMS_PTR : ; 
01 BE 00074 MNEGB #1, $RMS_PTRF2 : 
CD 9E 00078 MOVAB NAMRSS, SRMS_PTR+4 : 
01 8 0007E MNEGB #1, S$RMS_PTRT10 F 
CD 9E 00088 MOVAB NAMESS, SRMS_PTR+12 : 
AC 00 900 MOVL OUTFILE, R7 > 1467 
67 85 0008C TSTW  —-(R7) : 
07 12 0008E BNEQ ~='1$ F 
68 9E 00 MOVAB DYN_DESC, RO : 
0 DD 0009 PUSHL RO : 
02 11 0009 BRB 2$ ; 
DD 00097 1$ PUSHL R7 + 1469 
08 DD 00099 2$ He > 1465 
E D4 9B SP) 3 
CD OF F ILENAMEDESC ; 
AE 9F TNAM : 
AE OF TRAB : | 
cE oF TFAB ; 
F #7, MAILSCREATE_ISAM ; 
0 D RO, STATUS : 
6 £ STATUS, 33 : 1470 
ce E TFAB+8, 3$ : 1472 


d 8 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 -VAX=11 Bliss-32_V4.0-742 e 56) 
Y04+000 137800-1 384 99:23: 0  DISKSVMSMASTER:CMAIL.SRCJISUBS.832; 1 te 185 
$0 O0AG CEE 0008 MOVAB TFAB, RO os 
4 11 000C BRB : | : 
50 60 AF 9E ¢ 3$: MOVAB —TRAB, RO : : 
50 ODD C6 4$: PUSHL Ps F ‘ 
000000006 00 QI a} 00C CALLS # UTILSREPORT I0_ERROR ; : 
O0A9 = CE 80 8F : DOC BISB2 = #128, > 1675) : 
00A4 cE £ O05 PUSHAB TFA > 1476. : 
6A 1 FB 00009 CALLS #1, SYSS$CLOSE 5 ‘ 
4C 11 0000C BRB 6$ : 1477 : 
OOAS CE 9F OOODE 5$: PUSHAB TFAB + 1479 ; 
6A 01 FB OOOE CALLS SYSSCLOSE ; : 
00A4 F oF OE PUSHAB tt > 1481 : 
68 FB OO0E9 CALLS #1, UTILSGETF ILENAME : ; 
FEF8 CD 60 8 O0e MOVC3 #8, (RO), FILENAMEDESC ; : 
FFOO CD FEFC DD FEF8 CD O00F MOVC3 FILENAM AMEBESCS @FILENAMEDESC+4, FILENAMEBUF ; 1482 : 
FEFC CD FFOO CD 9E OOOFC MOVAB FILENAMEBUF, FILENAMEDESC+4 > 1483 : 
FEF8 CD 9F 00103 PUSHAB F ILENAMEDESC > 1484 : 
01 DD 00107 PUSHL #1 : : 
007E1071 8F DD 00109 PUSHL #8261745 : : 
000000006 00 03 FB 0010F CALLS #3, LIBSSIGNAL ; : 
FEF8 CD 9F 00116 PUSHAB F ILENAMEDESC > 1485 : 
58 DD OO11A PUSHL RB : ; 
04 AC DD 0011C PUSHL FuA GS F : 
FDDC CF 03 FB OO11F CALLS CALL_CONV_COMPRESS ; : 
56 50 DO 00124 MOVL RO. STATOS ; : 
04 56 E8 00127 BLBS STATUS, 7$ > 1486 : 
50 56 DO 0012A 6$ MOVL § STATUS, RO > 1487 F 
04 0012D RET ; : 
O1FE CE 020E 8F B0 001 E 7$ MOVW #526, NEW_NAME+2 > 1491 ; 
67 85 001 TSTW = (R?) : 1493 ; 
28 12 00137 BNEQ = 8$ ; : 
O1FC CE 9F 00139 PUSHAB NEW_NAME : 1497 ; 
7E 7C 00130 CLRQ = = (SP) ; : 
7E D4 0013F CLRL = = (SP) ; : 
000000006 00 9F 00141 PUSHAB MAILSRENAME_ERROR ; | : 
000000006 00 9F 00147 PUSHAB MAILSRENAME~SUCCESS ; : 
7E 7C 00140 CLRQ = =( SP) : ; 
7E 04 O04 CLRL = (SP) ; ; 
Oc Ad 9F 00151 PUSHAB P.AAV ; ; 
58 0D 00194 PUSHL 8 ; | : 
000000006 00 08 FB 00156 CALLS #11 L IBSRENAME FILE ; | ; 
01 50 i O10 BLBS ST TaTuS | : 
0050 8F 00 6E $ 00 C O16) 8$ MOVCS #0, (SP), #0, #80, SRMS_PTR : 1507 | 3 
IAC CE $50 SF 80 016 MOVW #20483, SRMS_PTR : | ; 
O1ce CE 03 01 MOVB off SRAS_PIRE22 ; | ; 
gic, CE OO7E11F2 BF p0 017 MOVL #82621307 $RMS PTR+24 ; | ; 
1¢8 CE 02 0180 MOVB SRMS_PTR+3T ; | ; 
0100 CE CE 9E 00185 MOVAB PROTXAB, SRMS_PTR+3 : | ; 
O14 CE CE 9E 001 ¢ MOVAB PROTNAM, S$RMS~PTR+4 : ; 
1D8 CE CE 19 NEW NAM AME +4 SRMS_PTR+44 : | ; 
O1E0 CE cE 19A MOVE NEW_NAM , $RMS_PTR+52 ; | ; 
6E Oe C pia} mMOVCS @ (Spy: #0, 796, SRMS_PTR ; 1513) : 
CE rt 80 O18 OVW 424578. SRMS_PTR ; ; 
CE 1 8E 0018 MNEGB #1, $RMS_PTRT2 ; ; 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTIN 
y0Lt008 ss _— 


som 
‘6 


nm 
e®eoom 


p=19B4 19:48:90 


APININD —@ = 2DOOCOTNTN BN AMMOVVCVOOWW 
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an 
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6 
; 
: 
6 
6 
A 
3 
6 
A 
0 
C 
8 
0 
0 
6 
C 
- 
C 
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0 
6 
8 
0 
C 
0 
C 
C 
0 
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0 
C 
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AMS OVOVOOMMOOMBdOmMd Mm MN MNO $9 S MMOL SD OOMNNM MOND NOOO rm rn Mmom—m 


@ 
oO 
oO 


PROTBUF, SRMS_PTR+4 
#1, S$RMS_PTR+ 

PROTBUF , ~SRMS_PTR+12 

#0, (SPS, #0,"#88, SRMS_PTR 
#22547, SRMS_PTR 

PROTFAB 


#1, SYSSOPEN 
#-188, PROTXAB+8 
TFAB 


Pp 
4 SYSS$CLOSE 


YN_DESC, DES 
DYN-DESC+4, DESC+4 
(R73 


C+4 
#0, (SP), #0, #80, SRMS_PTR 
#20483, SRMS_PTR 


a3. $RMS_PTRI22 
2; SRS OPTRe5! 


#4, $RMS_PTR+53 
#0, (SP)> #0, #96, SRMS_PTR 


#24578, SRMS_PTR 
#1, SRMS_PTRF2 


TF 

al. SYSSPARSE 

af SYSSSEARCH 

#1, UTILSGETFILENAME 
#8 ), DESC 


NAM+ 
RO, DESC 


RENAME _ERROR 
RENAME ~ SUCCESS 


Fil AME DESC 
’ LIBSRENAME FILE 

STATUS, 10$ 

#0, (SP), #0, #80, SRMS_PTR 


#20483, SRMS_PTR 


VAX-11 Bliss-32_ V4.0-742 
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Ae 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep VAX-11 Bliss-32 V4.0-742 
yOLtob0 14-Sep 71982 99:25 142: b DISKSVMSMASTER: (MAIL. SRCJISUBS.B22; ” th 
7A cE C MOVB aS: SRMS pre 
eo eed Meee ace 
CE 0204 cE H D6 MOVAB OPEN NNAAS TR+40 
9 CE 04 A 3 D MOVL DYN seetsas ws PTR+44 
94 CE 18 «Ad F E MOVAB P.ARY, $RM$ PTR+Z8 
i Se 80 b05E HOVE. Rann ness —_- 
0060 8F 00 6E nae 09 2¢ 6 rs MOVCS #0. (SP)7 10, #96, SRMS_PTR 
0204 CE 6002 ar 80 O2FD MOV 424578. SRMS PTR 
0 06 CE 1 BE 00304 MNEGB PTRT2 
0208 CE FBES cD 9E 0 09 MOVAB Spénass: “sams PTR+4 
0 OF CE 1 8€ 19 MNEGB #1, SRM 
021 CE 0384 CE 9€ 0031 MOVAB OpENe ss “SRMS _PTR+12 
0264 CE 9F 0031 PUSHAB oP N 
000000006 00 01 FB 00 CALLS SYSSPARSE 
0264 CE 9F 00 PUSHAB N 
000000006 00 01 FB 00 CALLS , SYSSSEARCH 
50 68 3¢ 00 MOV ZWL ort DESC, RO 
51 0241 CE 9A 00 MOVZBL 0 Dri alAnigl 
FEE8 CD 50 51 C3 0033A SUBL3 RI, 
FEEC CD 04 A8 D0 00340 MOVL DYN + ory a Bese DESC +4 
FEES CD 9F 00346 PUSHAB OP ERD 
000000006 00 01 FB 0034A CALLS RAILSOPEN_ FILE 
50 01 00 00331 MOVL IR 
04 00354 RET 


; Routine Size: 853 bytes, Routine Base: SCODE$S + 0090 
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ROUTINE DECODE_MISCDATA(MSGDESC) = 
; FUNCTIONAL DESCRIPTION: 
! Decode the miscellaneous data and fill in fields in MMB 


INPUTS: 
MSGDESC is addr of MMB for msg 


= 
= 


DPS DPIDITIVIVIVIIAN E 


DONA ULEWIN OOM 
OD NAMEN $O OODNAOUEWT 


2.090000 09 CD CD 


CMMH_C_SUBJ] : 
BEG! 


(MSGDESCCMMB_Q SUBJDESC]) = sPTRE1I; 
MSGDESCCMMB_O_SUBJDESCJ+4 = PTRE2I; 

CMMH_C_NREC) : c | 
BEGIN | 


60 

61 

8 

64 1 2 LOCAL 

65 ; RECEND 

66 ; PTR : REF VECTORC,WORD; 

68 5 CHSFILL(0,4*DSCSC_S_BLN,MSGDESCCMMB_Q_FROMDESC)); 'Zero all descriptors 

69 MSGDESCCMMB_L_NRECS] = 6; 

70 PTR = MMHCMAH-T_MISCDATI: 

ie RECEND = HDREC + .MSGCESCCMMB_W_HDRECLEN); 

a3 00 WHILE .PTR LSSU .RECEND 
2 08 CASE :PTRCOJ FROM MMH_C_FROM TO MMH_C_NREC 
6 04 CMMH_C_FROM) : | 
78 05 BEGIN 

79 06 (MSGDESCCMMB_Q_FROMDESC]) = sPrRCl); 

80 07 MSGDESCCMMB_G_FROMDESCJ+4 = PTR(2); 

8 09 CMMH_C_TO) : ‘ 

84 (MSGDESCCMMB_Q_TODESCJ) = .PTRE1): 

85 MSGDESCCMMB_G_TODESCJ+4 = PTRL2); 

bs 

90 

91 

38 

94 


ee em me me ee ee ed ed od dd wd dd 


PDOEAAAAAAAAAAAAAAAAAAAAAAAAA AANA 


: | 
1 
| | 
1 | 
1 
1 | 
1 | 
1 
1 | 
1 !<- 
BEGIN | 
MSGDESC REF S$BBLOCK; 
BIND 
HDREC = MSGDESCCMMB_T_HDREC] : S$BBLOCK, 
MMH = HDRECCMFR_T_DATA] : SBBLOCK; 
| 
4 
4 
; 
ri 
4 
4 
4 
4 
4 
4 
4 
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BIND 
95 NREC = PTRL2) : LONG; 
3$ MSGDESCCMMB_L_NRECS] = .NREC; 
98 END; 
2") C INRANGE 
90 OUTRANGE } : 
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0037 


110 bytes, Routine Base: $CODES + 10E5 


; Routine Size: 


1 


1635 


; 1508 


CATLEI SAN. SUBS ISAM MAIL MESSAGE SUBROUTINES 16 90:3$:9) VAX-11 Bliss=32 V4 


0-742 Page 61 
DI SKSVMSMASTERSCMAIL. SREIISUBS.B32; 1. 9 (20) 
GLOBAL ROUTINE MAILSDESELECT MSGS = | 
{FUNCTIONAL DESCRIPTION: 


AAO 


Sa 


i Deallocate all msgs in msg table 


1 

1 

1 

1 

1 

1 
BEGIN 
IF .MAILSL_NMSG GTRU 0 
THEN INCRU"I FROM 0 TO .MAILSL ~NMSG-1 
DO BEGIN 

1 


CURMSG = .MAILSL_MSGTBLC.1J; 


rSSSSSSS55 


DWONAUNE WN OOO NAOUE WO 


Heng gg DX(MAIL$Q_CURFOLDER) ; 
MAI = 0; 


SG = 0; 
MAILSL— _MSG_STS = MAILS _NOTREADIN; 
RETURN TRUE 
END; 


See Ce Se Ge Ge Oe Se Ge Ge Ge Ge Ge Ge Ge Se Se ee Se Ge Se eee 
kd oh od 
Shedd ctidh ih eda echh ch dich chub dich sch “choh edu ech dich eh “ach edhch “ach dich “duh “dal 


MWAAIAIIRIIININIINUININ 3 mm 
WN — O OONOUES WN "OO OONOUFS WO 


a bt o_o tt te tn a st 


FPARACAOAOOAD 
PAPAIN 


001C 00000 ~ENTRY PAIL SDESELECT MSGS, Save R2,R3,R4 : 1636 
54 00000000" 00 9€ 0000 MOVAB MAILSL_NMSG, R4 : 
50 64 00 000 MOVL MAILSL— “NMSG, RO : 1644 
1F 13 0000C BEQL 4$ : 
53 FF AO 9E B0s MOVAB -1(RO), R3 : 1645 
32 D4 0001 CLRL : 
12 11 00014 BRB 6 : 
50 08 A& 00 00016 1$ MOVL - L$L_MSGTBL : 1647 
04 A 6042 09 OO1A MOVL RO)CII, MAISL RCURMSG ; 
1 OOF BEQL se : 1648 
F425 CF FB 1 CALLS #0, DEALLOC_MSG : 1649 
D6 6 38 INCL > 1645 
53 D1 $ CMPL R3 g 
—E9 1B B BLEQU «1§ ; 
EC AG OF 4$ PUSHAB gtk URFO a” 3; 1652 
000000006 00 oi FB CALLS RSFREET, : 
000000006 00 b4 0 CLAL > 1654 
4 ¢ 03D CLRO a mt > 1653 
000000006 90 007E8022 8F DO 0003F MOVL a8 : 338. SRAILSL _MSG_STS > 1656 
0 1 D0 0004A MOVL > 1658 
04 00040 RET > 1659 
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+ pte ROUTINE MAILSREWIND_I_MSG = 
FUNCTIONAL DESCRIPTION: 

Rewind the current message in preparation for reading the text of it 
INPUTS: 

i MAILSL_CURMSG points to current msg descriptor 

BEGIN 


IF .MAILSL_CURMSG EQL 0 
THEN RETURN MAILS$S_NOTREADIN; 


IF .MAILSL_CURMSGCMMB_L_TXTLST] EQL 0 
THEN BEGIN™ 
READ_SAVE_MSG() 
MAILSL_ CURMSGLMMB_ L_NBLKS] = (.MAILSL_CURMSGCMMB_L_NBLKSJ+511)/512; 


MSGTRAN = MMB_C_F 
RETO MSG) STS = 2 True: 


0004 00000 .ENTRY MAILSREWIND_I_MSG, Save R2 
52 00000000' 00 9€ 00002 MOVAB MAILSL_CURMSG, R2 
5 62 DO 00009 MOVL § MAILSLCURMSG, RO 
08 1 9000¢ BNEO 
50 007E8022 BF D 000g MOVL #8290338, RO 
04 0001 RET 
06 Ad D3 0016 1$ TSTL  6(RO) 
1A 12 00019 BNEQ 2$ 
F2EA CF 09 FB 00018 CALLS #0 READ SAVE _MSG 
50 62 00 00 9 MOVL MAILSL RMSG, RO 
51 3F «AO OOOOOIFF BF C1 000 ADDL3) #511, 34? 
AO 51 00000200 8 is 00 g DIVL3 #512. RI} ResiRG) 
eS A 01 90 00035 2s: MOVE #1, MSGTRAN 
000000006 g ot 06 0059 MOVL #1. MAILSL NASG. STS 
1 0 40 MOVL #1. RO 
04 0004 RET 


68 bytes, Routine Base: S$CODE$ + 11A1 


; Routine Size: 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX=11 Bliss-32 V4.0-742 Page 63 
vee ti - 15-Sep-1984 99: 23:3) DISKSVMSMASTER: (MAIL .SRCJISUBS.B32;1 -” (235 
3 ' 61 16 5 GLOBAL ROUTINE MAILSGET_I_MSG(OUTDESC,MORE_FLAG) = 

; ef 16 5 FUNCTIONAL DESCRIPTION: 

: } 65 12 8 : Get next unpacked text record of message 

; ef 1691 { QUTPUTS: 

; 1569 1838 1/ OUTDESC is the address of a two-longword vector filled in with 
; 1570 1694 1! a descriptor of the text. String must be copied if it is needed 
3 ; } 1992 : } Leber. 

:1 8 1899 1/ MORE_FLAG = true if more text, else false 

> 157% 1698 1 i-- 

Sn ee 

24 i 1701 OUTDESC : REF VECTORC,LONG); 

: 1358 1708 

> 1580 1704 CURTXT : REF SBBLOCK, 

: 1381 1705 TATENSPIR REF VECTORL.WORD), 

; 1888 1709 DESC : SBéLOCK CDSC$C_S_BLNI 

> 1584 1708 PRESET (pestis. DTYPE] = DSC SK K_DTYPE_T 

: 1385 1709 DSC$B-CLASS] = DSCSK-CLASS-D); 

: 1587 1711 2 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAMJ 

> 1588 718 THEN BEGIN 

3; 1589 171 IF .MAILSL_MSG s"3 ie 0 'If already at eof, return it 
: 1590 1716 ; THEN RET RETURR RMSS_E 

; 1598 1716 4 ae -MAILS$W_MSG_RSIZ; 

: 159 1717 4 iMag. “MSG-RADR: 

3: 1594 1718 4 MAIL ant 'Get next record 

> 1595 1719 & RETURN T 

: 1399 1759 wee 

: 1598 17 é .MORE FLAG = at ‘Assume more text 

> 1599 17 aAILSC nse. § 1; 

3 H's Hf : SE ASGTRAN FROM’ MMB_C_NONE TO MMB_C_FROMXDT 

: 160 17 CMMB_C_NONE) : 

; 1808 17 $ BEGIN 

+ 1604 17 8 IF .TXTPTR GEQU .TXTENDPTR 

> 1605 1729 & THEN BE 

: 1606 1730 4 IF .CURTXT EQL 0 

+ 160 1731 4 (CURTXT = .CURTXTCTXT_L_NEXT]) EQL 0 

+ 1608 17 g THEN BEGIN 

{18% Hi CHORE FLAG = 0; 

+ 1611 1735 maicse A _MSG STs. = 0; 

: lore 7 RETUR N"FALSE; 

> 1614 17 ELSE BEGIN 

; 1818 17 3 TXTPTR = CURTXTCTXT_T_TEXT); 

: 1616 1740 TXTENDPTR = .TXTPTR™+”. CURTXTCTXT_L_TEXTLENI; 

> 161 1741 & END; 


8 
MAILSISAM.SUBS ISAM MAIL MESSAGE SUBROUTINES 1h-Sep-1986 00:54:01 VAX=11 BLiss-32_v4.0-7 Page 64 
yoeeo0e 12a ea tae 9952359) Teeth Sea Rie Shear sues.03251° 28 «oss 


42 
RC 


3 1918 1768 ; END; 

3; 161 Vt IF _ .MAILSL_CURMSGCMMB_V_EXTNSTD) 

; 1620 1744 4 THEN BEGIN 

; 1621 1745 & oh $49 98 = eCURTXTEIXTLTEXTLENI; 

3; 16 § 1f68 4 OUTDESCL1) = Esha tt }; 

; 16 1747 & TXTPTR = .OUTDESCCLO] + .OUTDESCC1); 

: 1626 ree 4 END 

> 1625 1749 4 ELSE BEGIN 

3 16 § 1750 4 supe StEOY = eVareretga: 

3; 16 1751 4 OUTDESCL1J = TXTPTRC1); 

3; 1628 17 § 4 TXTPTR = ag DE, + . TXTPTROOI; 

: 1629 17 4 IF .MAILSL_CURMSGCMMB_V_EXTMSG] 

: 1650 1754 & THEN TRIPTR = (.TRTPTR + 1) AND NOT 1; 

3; 1631 1755 END; 

3 1036 1796 ! 

3; 16 175 ! If current record strays out of ty buffer boundry 
: 1835 1738 or if the record is too big we must abort the message 

3; 16 1760 IF (.,OUTDESCL1) + .OUTDESCLO] GTRU .TXTENDPTR) OR 
: 1637 1761 (.OUTDESCLOJ GTRU 2048) THEN 
; 1638 1766 4 BEGIN 

3; 1639 1765 4 -MORE_FLAG = 0; 

3; 1640 1764 4 MAILSC_MSG_STS = 0; 

3; 1641 1765 4 SIGNAL TMAIC$_RECTOBIG,1,.OUTDESCLO)); 

3 Ieee 1708 4 RETURN FALSE; 

3 164 176 ; END; 

3 1644 1768 IF .OUTDESCLOJ GEQU 2 

: 1645 1769 4 AND (.(. OUTDESCL1J*.OUTDESCL0J-2)<0,16> 

3 1646 1770 4 EQLU (CR OR LF*8)) 
: 1647 1771 THEN OUTDESCL9] = .OUTDESCLO) = 2; 

3: 1648 1776 IF .TXTPTR GEQU .TXTENDPT 

3 1649 177 AND .CURTXTCTXT_L_NEXT EQL 0 

3; 1650 1774 THEN .MORE_FLAG = 0; 

3: 1651 1775 3 

3 1o26 1776 

3; 165 177 CMMB_C_FROM, 

: 1654 1778 MMB_C _FROMXDT]) : , 

3: 1655 1779 BEGIN 

: 1656 HA BIND 

: et 178) MSGREC = MAILSL_CURMSGCMMB_T_HDREC] : S$BBLOCK; 
3; 1659 1388 IF_ .MSGTRAN EQL MMB_C_FROM 

3; 1660 1784 4 THEN BEGIN 

: 1661 178? 4 pATEDESCEOY = 18; 

: 166¢ 1786 4 DATEDESCL1) = DATEBUF: 

3; 166 1787 4 SFAO(SDESCRIPTOR(' 11820") ,DATEDESC ,DATEDESC MSGRECCMFR_Q_DATIM)); 
3: 1664 1733 4 END 

: 1665 1789 4 ELSE BEGIN 

3 1666 1790 4 PATE DE See} = 0; 

> 166 1791 4 DATEDESCL1) = DATEBUF; 

3: 1668 ie ND; 

: 1669 179 STRSCONCAT (DESC ,MAILSGETMSG(MAIL$_1SUB10) 

: 1670 1794 MAILSL_CURMSGLMMB~Q_FROMDESC],DATEDESC); 
: 1671 1795 MSGTRAN = MMB_C TO; 

; 167¢ 1796 QUTDESCEO) = ~DESCEDSC$W_LENGTH]; 

: 167 179 OUTDESCE1}] = .DESCCDSCS$A~POINTER); 

3 1674 1798 END; 


+t be AM_SUBS ISAM MAIL MESSAGE SUBROUTINES 


> 1675 1799 CMMB_C 0] : 

; 1978 1 st 

: 167 1801 MSGTRA MMB_C_SUBJ; 

: 1678 1 0¢ STRSCONCAT (DESC TMATLEGETMSG(MAILS_1SUB20) 
: 167 180 mA USL gGURMSGCHMB_TODESCI) ; 
: 1680 1804 SUTDES Cfo} = -DESCCDSCSW_LENGTHJ: 

> 1681 1805 OUTDES -DESCEDSCSA-POINTERI; 

; 168¢ 1 06 

3; 168 180 

+ 1684 1808 CMMB_C nas : 

> 1685 1809 BEGIN 

; 1686 1810 MSGTR C_BLANK; 

: 16 1811 STRBCONCATCDESCSRALLSGETNSG (MAILS, 1$UB30 

> 1688 1818 MAILS$L_C NSGEMMB=0. SUBJDESC); 
: 1689 181 guroeste = .DESC bScSuot ENGTH): 

: 1690 1814 OUTDESCE1)] = .DESCCDSCSA ~pOINTERA: 

> 1691 1815 

; 169¢ 1816 

: 169 181 CMMB_C ipa: : 

+ 1694 1818 BEGIN 

: 1695 1819 SGTRAN = MMB C_TEXT; 

+ 1696 1820 SUES 

: 1697 1821 OUTDESCE1) = .bESCCDSCSA POINTER); 

: 1698 18 ; 

: 1699 18 

: 1700 1824 CMMB_C vent : 

: 1701 18 5 BEGIN 

$ a4 Isse CURTXT = .MAILSL_CURMSGCMMB_L_TXTLSTJ; 

3: 1704 1828 ! Compute the message text boundry 

: 1705 1829 3 

: 1706 1830 IF .CURTXT NEQ 0 

: 1707 1831 4 THEN B 

: 1708 1832 4 IXTPTR = CURTXTCTXT_T_TEXT); 

> 1709 1833 4 TXTENDPTR = .TXTPTR7+”. CURTXTCTXT_L_TEXTLENI; 
: 1710 1834 4 ZN 

: 1711 1835 5 ELSE (TXTPTR = 1;TXTENDPTR = 0); 

; W71¢ 1836 3 TRAN = MMB_C_NONE; 

: 171 1837 3 RETURN MAILSGET™! _MSG(..OUTDESC, .MORE_FLAG); 
+ 1714 1838 END; 

3; 1715 1839 TES; 

: 1716 1840 

: 1717 1841 2 RETURN TRUE 

: 1718 1848 

: 171 184 END; 
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P. i R 
MAILSL_MSG_STS, R7 
MSGTRAN, Rb 


TX 
MAILS$GL_FLAGS 
MAILSL_MSG_ gF< ¢ 


#98938, RO 

OUTDESC, RO 

MAILSW_ ASG ~RSIZ, (RO) 
RAILS. MSG-RADR, 4(RO) 
MAILSGET _MSG 

; FLAG, R4 


R4 
¢pMAlLst gf"S6. STS 


URTXT, RO 
(RO), CURTXT 
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GLOBAL ROUTINE MAILSFIND_!_MSG(MSGNUM,NEXT_FLAG,DELMSG_FLAG) = 
FUNCTIONAL DESCRIPTION: 


X-11 Bliss-32 V4.0-742 Page q? | 
SKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 (23) 


: Find the specified message. If MSGNUM is 0, the next message is found 
! If NEXT_FLAG = 1 and specified msg is deleted, then find next undeleted 
: message. If NEXT_FLAG = <1 and specified msg is deleted, then find 
previous undeleted msg 

' | 
lee 


BEGIN 


WN SO OONOUSwnN— 


38 BUILTIN 
? NULLPARAMETER; 
36 LOCAL 
DELF 
NEXTF, 
SRCH_MSGNUM; 
NEXTF = (IF NULLPARAMETER(2) 
THEN 1 
ELSE .NEXT_FLAG); 
DELF = (IF NULLPARAMETER(3) 
THEN 0 


ELSE .DELMSG FLAG); 
NUM EL 6 | 


SRCH_MSGNUM = (IF .MSG 
THEN .MAILSL_MSG_NUM + 1 
ELSE MINU(.MSGNUM; .MAILSL_NMSG)); 


| 
IF .SRCH_MSGNUM GTRU_ .MAILSL_NMSG | 
OR .SRCH_MSGNUM EQL 0 
THEN BEGIN | 
MAILSL_CURMSG = 0; 
IF .MATLSL_NMSG EQL 0 | 
THEN RETURN (MAILSL_MSG_STS = MAIL$_NOMSGS) 
ELSE (MAILSL_MSG_NUM = [MAILSL_NMSG?1; 
si RETURN (MAILSL_MSG_STS~= MAIL$_NOMOREMSG)); | 


MAILSL_CURMSG = .MAILSL_MSGTBLC.SRCH_MSGNUM-1); 
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r64 Special case LAST or 9999 when last message is deleted 
766 IF .MSGNUM GEQU .MAILSL_NMSG | 
767 AND .MAILSL_CURMSG EQL 0 | 
768 AND .NEXTF GTRU 0 
769 THEN NEXTF = -1; 
771 IF .MAILSL_CURMSG EQL 0 
4k -DELF 

77 THEN BEGIN 

774 IF .MSGNUM NEQ 0 

775 AND NOT .NEXTF 

776 THEN RETURN (MAILSL_MSG_STS = MAIL$_DELMSG); 

777 900 IF .NEXTF GTR O 
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1 7:54:01 VAX-11 Bliss-32 V4.0-74 
1 99:23: 0  DISKSVMSMASTER:CMAIL.SR 

GLOBAL ROUTINE MAILSINFO_1_MSG(SENDER, SUB LAGS 
F ER, SENDER_PATH,TO_DESC) = 


Wn 


tee 
! FUNCTIONAL DESCRIPTION: 


w 


Return info about message for directory Listing 
OUTPUTS: 


SENDER = sender node-name and username 

SUBJ = subject string 

DATE = date-string 

FLAGS = string of flags present (ascii description) 
FULL_SENDER = complete sender including personal name 
SENDER PATH = complete sender excluding personal name 
TO_DEST = ‘to’ string 


00.0000 0000000000 


BEGIN 


ACTUAL COUNT; 


WN | OC OONAUESWN “CO OONOUNS WN Oo 


WAI POPOPOPNPNINYDY 2 2 SO OS OS SS 


BIND 
HDREC = MAILSL_CURMSGCMMB_T_HDREC] : SBBLOCK; 


LOCAL 
T SENDER : VECTORC2,LONG), 


TRY. SIZE, 
TRY-PTR; 


IF .MAILSL_CURMSG EQL 0 
THEN RETURN MAILS$S_NOTREADIN; 


ABAMNAMAMAMMIVIUIE BEEBE LLL ES 


] 
| 
| 
| 
| 
| 
| 
| 
LTIN 
NULLPARAMETER, 
| 


IF NOT NULLPARAMETER(1) 
CHSMOVE (DSCSC_S_BLN,MAILSL_CURMSGLMMB_Q_FROMDESC),T_SENDER) ; 


| 
Trim sender name to only his nodename (if present) and username | 


TRY_SIZE = .T_SENDER(O); 

TRY-PTR = .T SEND 3 

WHICE NOT CHSFAIL(PTR = CHSFIND_SUB(.TRY_SIZE,.TRY_PTR 
ZCHARCOUNT(*::*) ,UPLIT('::"))) 


SAN 
WR SO ODA UNE WAN 0 OD NO UNE WIN 9 ODOM EWN SO OONOULS UN OO@ 


pente = .TRY_SIZE; 
1J = .TRY_PTR; 
TRY_SIZE = .TRY_SIZE - Has Be praencouare” se") - .TRY_PTR); 


hteteteieteieineit 23 259 2 


oO@ 


THEN T_SENDER(O) = .PTR = .T_SENDE 


N . 
IF NOT CHSFAIL(PTR = Gnee te cat SEMDEGOD..T_SENDERET]ZASCIE - ae 
STRSCOPY_OR(. SENDER. T_SENDER); i: ; 


wn 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1h-s Sep 1 VAX-11 Bliss- -32 V4.0-742 7% mA! 
vee ti 14-Sep 71984 99:25 :42:20  DISKSVMSMASTER: CMAIL.SRCJISUBS.832; "bn 9° 28) v0é 
31 19 8 IF NOT NULLPARAMETER(2) | i | 
: 19 , THEN STRSCOPY_DX(. SUBJ ,MAILSL_CURMSGCMMB_Q_SUBJDESCJ); : 
: 4 199 i FORMAT DATE/TIME z 4 
3 1338 ; s 4 
: 1 199 if NOT NULLPARAME TER (3) | 4 
3 7 1994 a Bes | + 4 
: 1 1995 Esco }: a4 
3 1 1208 scti Pi ‘4 
: 1 199 ay ctl spat } ,DATEDESC ,DATEDESC HORECEMFR_O_DATIN]); | tf 
: 1 1998 STRSCOPY_DX(.DATE DATE : 4 
. ; 1 , Py . ‘ 
: 1 tt i FORMAT FLAGS 4 
: 1 0 i : 4 
31 008 iF NOT NULLPARAMETER(4) if 
31 004 3 THEN BEGIN i 
| | 
i] 007 REPL IED; | a 
33 009 4 (NEWMSG = ,MAILSL CURASGC RNS NEWMSG)) 
3: 1 010 4 OR (REPLIED = mi LSL msG ve. y -REPLIEDI) 
: 1889 011 : OR -MAILSL _CURMSG(MMB— “tN 
3 1890 Ore MAILSL_CURMSGCMMB_V pieced NE 
; 1891 013 4 THEN OBEGIN 
51 % 014 4 STRSCOPY_DX(DYN_DESC,SDESCRIPTOR(' ")); | 
> 189 015 4 IF .NEWMSG 
: 1894 O16 4 TREN STRSAPPEND (DYN_DESC ,MAILSGETMSG(MAIL$_INFO10)); 
> 1895 017 & IF -REPLIED 
; 1896 018 4 THEN STRSAPPEND (DYN_ DESC MALL SGETHSG (MAILS. INFO20)); 
> 189 019 4 IF .MAILSL_CURMSGCMMB_L-NRECS) 
: 1898 020 THEN BERIT” 
: 1899 021 IF -NEWNSG OR .REPLIED 
> 1900 0 ‘ THEN ST RSAPPEND (DYN _DESC, SDESCRIPTOR(',")); 
> 1901 023 5 STRSAPPEND (DYN_DESC 
; 1908 9 ‘ ; eal MAILSFAO_ GETNSGCMAILS. INFO30, .MAILSL_CURMSGCMMB_L_NRECS))); 
: 1904 0 6 4 IF_.MAILSL_CURMSGCMMB_V_EXTMSG) 
> 1905 0 THEN BEGIN 
: 1906 028 IF .NEWMSG OR -REPLI ED 
: 190 029 .MAILS$L_CURMSGCMMB_L_NRECS] GTRU 0 
: 1908 030 THEN A STRSAPBEND (OTN “DESC. SDESCRIPTOR(',")); 
: 1909 0 1 STRSAPPEND (DYN 
: 1910 j MAILS DLGETASGURAILS IN 
+ 1911 0 tRasee a 0 _DATID])<32,32,0> | 
: 1918 G 4 5 ee *traitere ~CURMS MMB~Q~DATID})<0, $2,6>)5; 
: 1914 9 ‘ STRSCOPY _DX(.FLAGS .DYN_DESC); 
: 1916 0 a ELSE STRSFREE1_DX(. FLAGS); 
; 191 END; 
: 1918 0 ' 
; H+ ah 1 Get full sender name if requested 
: 1981 be IF NOT NULLPARAMETER(S) 
: 1922 044 THEN STRSCOPY_DX(.FULL_SENDER,MAILSL_CURMSGCMMB_Q_FROMDESC)); | 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES -1984 00:54:01 
yOLtO0 ori 9ke 99523595 
: 1923 5 ' 
: 13 ¢ § Get full sender name without stuff in quotes 
:4 § it NOT NULLPARAMETER(6) 
19 men eat 
: 19 1 T_CHAR : BYTE, 
: + ° § a0orTe FLAG; 
3 19 7 0 4 CHSROVE(DSC8C $_BLN,MAILSL_CURMSGCMMB_Q_FROMDESC],T_SENDER); 
3 19 4 it ; INCRUTT FROM oe TO .T_SENDERCO) - 1 
: 19 : 4 IF (T_CHAR = CHSRCHAR(. | SENDERC1}+ 1)) EQL ZASCII °°" 
: 19 05 4 TREN QUOTE _FLAG = .QUOTE FLAG XOR 1 
: 19 0 4 ELSE IF .T CHAR EQL % TASeTie ' 
> 1939 061 4 AND .QUOTE_FLAG 
> 1940 06¢ THEN BEGIN 
: 136) 06 leiftesee = .I; 
: 1908 668 4 : 
: 1908 bee srastori _DX(. SENDER_PATH,T_SENDER); 
+ 1946 068 
3: 19467 069 
: 1948 070 2 IF NOT ecspenetanti 
; 1949 4 THEN STRSCOPY_DX(.TO_DESC MAILSL_CURMSGCMMB_Q_TODESCJ); 
: 1951 O78 RETURN TRUE 
: 1952 074 1€E 
0 3A 3A O14F4 P.ABB: SCII \44)<8 
46 ts $3 3 34 O1458 P “ABD: scl} \!20%D\ 
00000005 01500 P.ABC: LON Ne 
00000000" 01504 “ADDRESS P.ABD 
09 08 P.ABF: ASCII <9 
00000001 01 o¢ P.ABE: .LONG 1 
00000000" 0151 “ADDRESS P.ABF 
2¢ 16 P.ABH: “ASCII \.\ 
90000001 1 18 P P.ABG: .LONG ; 
0000000" 01 1 “ADDRESS P.ABH 
2C 01520 P.aBU: <ASCII \,\ 
1 “BKB z 
90000001 1 } P.ABI: :LONG 1 
0000000" 01 “ADDRESS P.ABJ 
OFFC 00000 .ENTRY MAIL Ls} 
AF 9E 00002 MOVAB s kee.” 
38 000000 ic 00 9E tits MOVAB STRSAP 


S> 


— 3 
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Mairi MSG, Save R2,R3,R4,R5,R6,R7,RB,~; 1931 
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“1984 00:54:01 VAX=11_BLiss-32_v4.0-742 Page 7 
B=1984 19:43:90 DISKSVMSMASTERSCMAIL.SRCIISUBS.832;1° °° (245 
ST 9 


9 G E op MOVAB RS COPY DX, R : 
8 : 4 MOVAB = MAILSL CORMSG, RB ; 
1 MOV DYN_DESC, R : 
5 $8 6 sete AAILSL_CURMSG, RO : 1956 
6 47 A “ MOV 71(RO)> R6 : 
50 D C TSTL) oR + 1964 
0 1 BNEQ = : 
50 00768022 &F i 0 MOVL #8290338, RO + 1965 
¢ 038 1$ TSTB  —s_: (AP?) t 1967 
gf 1 0 A BEQL «6s 7$ : 
06 AC OD C TSTL (AP) : 
4c 1 00 F BEQL «§©7$ : 
6E 13 A0 08 28 00041 MOVC3 #8, 19(RO), T_SENDER + 1969 
5 6— 00 0046 MOVL T_SENDER, fRY7SIZE + 1973 
54 04 A p 04 MOVL  T“SENDER#+4, TRY_PTR + 197% 
64 55 6B 9 ; ip: 28 RATENC ae P.ABB, TRY_SIZE, (TRY_PTR) 3 1976 
53 02 DO 00054 MOVL a. R3 : 
53 0 ce 90097 3$ SUBL2 #2. R3 : 
16 13 0005A BEQL 4$ : 
6E 55 p00 0005c¢ MOVL § TRY_SIZE, T_SENDER + 1978 
04 AE 54 00 0005F MOVL. TRYTPTR, T_SENDER+4 + 1979 
50 54 33 g 00063 SUBL3. PTR> TRY_PTR RO : 1980 
55 FE A045 SE 00067 MOVAB =2(RO)CTRY_SIZE], TRY_SIZE ; 
54 02 A’ 9E 006¢ MOVAB 2(R3), TRYZPTR + 1981 
DB 11 00070 BRB $ : 1975 
04 BE 6E 20 3A 9007¢ 4$: LOCC #32, T_SENDER, aT_SENDER+4 + 1983 
02 12 0007 BNEQ 5$ ; 
51 04 00079 CLRL sR F 
53 51 DO 00078 5S: MOVL 1, PTR : 
05 1 O07 BEQL ; 
6E 53 04 AE C3 0008 S T_SENDER+4, PTR, T_SENDER + 1984 
SE DD 00085 6$: PUSHL SP + 1985 
04 AC DD 00087 PUSHL SENDER ; 
69 02 FB OO08A CALLS #2, STRSCOPY_DX : 
02 6C 91 0008D 7$: CMPB «CAPD, #2 : 1988 
OF 1F 90099 BLSSU ; 
08 AC d3 009 TSTL 8(AP) ; 
OA 13 0009 BEQL ; 
7E 68 23 C1 00097 ADDL3 #35, MAILSL_CURMSG, -(SP) : 1989 
9 - 05 eS ie Cares #2, STRSCOPY_DX : 
3 6C of Boal 8$: CMPB sé AP), a - : 1993 
29 «1F DOA, BLSSU : 
0c AC OD OA TSTL  12¢AP) ; 
24 13 000A BEQL : 
38 A? 4 p OOAB MOVL #20, DATEDESC : 1995 
C Av 08 A7 9E OOOAF MOVAB DATEBUF, DATEDESC+4 > 1996 
36 pd OB PUSHL R6 : 1997 
: A? OF B6 PUSHAB DATEDESC : 
A? 9F 0008 PUSHAB DATEDESC F 
C AaB OF 000BC PUSHAB P.ABC : 
000000006 00 04 FB O00BF CALLS #4, SYSSFAO : 
8 A7 9F 000C PUSHAB DATEDESC : 1998 
C AC DD 000C PUSHL DATE : 
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OO7EDEDS 8F DD 001 PUSHL #8314584 : 2032 F 
000000006 00 FB 18 CALLS #3, MAILSFAO_GETMSG : ; 
DD 001 PUSHL : ; 
DD 0019 PUSHL R + 2031 ; 
6A 98 FB 00199 CALLS "e. STRSAPPEND : F 
DD 0019C 208 PUSHL R : 2036 : 
10 AC DD 196 PUSHL FLAGS ; : 
69 0 FB OOIA CALLS #2, STRSCOPY_DX : ; 
A 11 OO1A4 BRB 22$ + 2009 34 
10 AC OD 1A6 218: PUSHL FLAGS : 2038 3; ¢ 
000000006 00 01 a 1A CALLS #1, STRSFREE1_DX : ; 
05 6¢ 91 00180 22$: CMPBs«CAP), #5 + 2043 ; 
F if 001B BLSSU : : 
146 AC 05 018 TSTL (AP) : 3 2 
OA 13 00188 BEQL : 
7E 48 13 Ci OO1BA ADDL3 #19, MAILSL_CURMSG, -(SP) + 2044 
146 AC DD 00 1BE PUSHL Fue SENDER : 
69 02 FB O0IC CALLS #2, STRSCOPY_DX : 
06 6¢ 91 001C4 23$: CMPB (AP), #6 + 2068 
45 1F 001C7 BLSSU ; 
18 «AC D3 o01¢9 TSTL 4 (AP) : 
40 13 OO1CC BEQL F 
50 68 DO OO1CE MOVL MAILSL CURMSG, RO + 2054 
6E 13. AO 08 28 00101 MOVC3 #8, 19TRO), T_SENDER 3 
52 D4 00106 CLRL_ QUOTE_FLAG : 2055 
53 6E 01 C3 00108 JUBL3. «#1, TISENDER, R3 + 2056 
50 D4 0010C CLRL ; 
21 11 001DE BRB 7$ : 
51 04 BE4O 9A OO1EO 24$:  MOVZBL @T_SENDER+4(1), R1 : 2058 
54 51 90 OO1E5S MOVB R17; T_CHAR : 
22 51 91 00168 CMPB : 
05 12 OO1EB BNEQ : 
52 Oi 8c OED XORB2 #1, QUOTE_FLAG : 2059 
OD 11 OU1FO BRB : 
20 54 91 OOiFe 25$: CMPB  T_CHAR, #32 + 2060 
08 12 OO1F SNEQ F 
05 28 E8 OO1F7 BLBS § QUOTE_FLAG, 26$ > 2061 
6E 50 DO OO1FA MOVL I, T_SENDER + 2063 
07 «+11 OOrED BRB 28$ > 2062 
50 D6 OOIFF 26$: INCL | : 2056 
53 50 01 00 91 27$: CMPL I, R3 ; 
DA 1B 00 BLEGU 24s ; 
5E 0D 00 06 28$:  PUSHL SP : 2067 
18 aC DD 0 08 PUSHL SENDER_PATH : 
69 0 FB CALLS #2, STRSCOPY_DX : 
07 6C 91 OO20E 298: (MPR s«(AP), #7 : 2070 
OF 1F 00211 BLSSU : 
1c OAC 05 0213 TSTL 8(AP) F 
OA 13 00216 EQL ; 
7E 68 1B C1 00218 ADDL3 #27, MAILSL_CURMSG, -(SP) : 2071 
1¢ «AC ODD 0 1c PUSHL 19_besc ; 
69 02 FB 1F CALLS #27 STRSCOPY_DX ; 
50 01 pO 00 $2 30$:  MOVL #1, RO : 2073 
04 00 RET 3 2074 
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ND 
QUAL_FLAGS = SELECT_DATACO] : S$BBLOCK; 


LOCAL 
KEYBUFFER : are tem: S_FILEKEY], 


8 — SELECT_MSGS (FOLDER_DESC,SELECT_DATA,OUT_DESC) = 
8 ! FUNCTIONAL DESCRIPTION: 

0 Perform the actual message selection 
ae Hi 

0 BEGIN 

0 AP 

0 FOLDER_DESC : REF SBBLOCK, 

0 SELECT_DATA : REF VECTORC,LONG), 

8 OUT_DESC : REF VECTORC,LONG; 

0 

0 
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; § 1 ae 
: 1 e 
; 8 1 a4 
$ 7 ‘4 
; 0 1 a4 
° ie : 
3 
; 5 M +4 
° 2084 e 4 
; 5 : 4 
; 7 a4 
. e 4 
; 8 4 
3 9 24 
; $ 0 s 4 
; 2091 2 : 
: 5 g ; RECDESC : VECTORE? LON NGJ,~ : 4 
; 2094 RECPTR : REF ctor serie, is 
; 2095 g MSG LOCK : 
; 2096 PTR : REF SBBLOCK, 2 
; 2097 g AH: REF SBBLO i 
; 197 2098 DATIM. REF VECTORC, LONG, zs 
; 197 2099 STATUS; 2 § 
; 197 2100 2! if 
; 198 2101 ! Read on the folder name. ’ e 4 
; 198 21 ; 2! e 4 
; 198 21 2 MAILST -Rd -RABCRABSL_ROP] = RABSM_LIM; !Read on folder name : ¢ 
; 198 ei 4 2 MAIL$T_RD_RABCRABSB_ KRF 21; | 3 
> 1984 105 2 MAILST~ “RD “RABCRABSL_KBFJ = KEYBUFFER; : 
; 1985 $106 5 MAILST-RD-RABLRABSB-KS?). = MER S FILEKEY: ¢ 
; 1986 2107 3 CHSCOPY(.FOLDER ADEStLDSCSw LENGTAY. FOLDER 0 SCCDSCSA_POINTERJ,0, 24 
; 1987 2108 MFRS FILEKEY, KE YBOFE ER); i 
3 1988 2109 é MAIL$T_RD_RABCRABSB_RAC) = RAS : 2 
; 1989 2110 2 MAILS$T_RD-RABCRABSV_LOC] = TRUE; : 
; 1990 2111 2 MAILS$T_RD-RABLRABSV_ WX} i 
> 1991 giig ¢ MAIL$T-RD-RABCRABSL—C ctx] = mat READERR; | zs 
; 1992 P2113 2 IF LERRTSF IND (RAB=RATLST AR | 2 4 
; 1993 P 2114 : IF QUAL. FLAGSLOUAL RNEUa 4 
3 1994 P 2115 THEN BEGT s 4 
> 1995 P e116 2 IF .QUAL_FLAGSCQUAL_IMPLIED_NEW] 2 
> 1996 P2117 2 THEN | ‘- 
3 1997 P 2118 2 QUAL pELAGSCQUAL NEW] = QUAL_FLAGSCQUAL_IMPLIED_NEW] = FALSE; | 24 
; 1998 P2119 2 OUT = MAIL$Q_MSG _FNA; 24 
; 1999 P 3120 3 RETORN MAILSSELECT SASGs (MAILGa _MSG_FNM, .SELECT_DATA) | i 
; 2001 P $152 2 MAILSINER NEWMAIL (MAIL$Q USERNAME , 0); 'Reset new mail count | +4 
; $008 P \$7 2 oc TURN SIGNAL (MAIL$_NONEQMAIL) ; 2 4 
3 2004 P 2125 IF .STATUS NEQ RMSS i? 
3 2005 p 126 THEN RETURN UTICSREPORT 10 ERROR (MAILST RD_RAB) | 

; Boe 1 ELSE RETURN SIGNAL(MAILS_NOTEXIST,1,.FOCDER_DESC)); 

; 2008 3 3 MAILST RD_RABCRABS$B_RAC] = RABSC_SEQ; | 

; 2009 130 WHIL — TRUE 

; 2010 2131 0 BEGIN 
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#8261808, MAILST_RD_RAB+24 
MAIL$T_RD_RAB 
#1, SYSSFIND 
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STATUS, #98994 
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#1 
#8290506 
#3, LIBSSIGNAL 
MAILS$T_RD_RAB+30 
MAILS$T~RD-RAB 
#1, SYSSGET 

* STATUS 
STATUS, #98385 
STATUS, #98994 

TATUS, #98938 
MAILSGL_FLAGS+1, 6 
STATUS, 8$ 
STATUS, #98986 
MAILS$T_RD_RAB 
#1, UTILSREPORT_IO_ERROR 
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R, _DATIA 
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ATIM), 4(R10) 
12$ 


IL$T_RD_RAB+34, =(SP) 
te SP 
, GET_MEM 
ATUS,~13$ 
MSG 
MAI 
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DESC, R8 

L$T_RD_RAB+16, 

LST _RD_RAB+20, 
34 
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#1, DECODE_MISCDATA 


#1, ADD_MESSAGE 
STATUS, ~11$ 


MAILSL_NMSG 
#4, (R10), 19% 
(Rig, 16$ 

#127, (R10) 
MAILSQ_MSG_FNM, @OUT_DESC 


R 
MAIL$Q_MSG_FNM 
#2, MATLSSELECT_MSGS 


MAILSGL_FLAGS+1, 18$ 
=(SP) 


MAIL$Q_USERNAME 
#2, MATLSINCR_NEWMAIL 
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#1, LIBSSIGNAL 
#1, RO 
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; O70 130 ! GLOBAL ROUTINE MAILSSELECT_MSGS(FOLDER_DESC,SELECT_DATA) = | ; 
; ore 138 } FUNCTIONAL DESCRIPTION: | : : 
3 2074 194 1! Select a new set of current msgs | ‘6 
; 2075 195 1! ae 
; S78 136 1 ! INPUTS: s¢ 
: 207 97 3 3 s¢ 
3 ore 198 1! FOLDER_DESC is addr of descriptor of folder e 4 
; 207 199 1! SELECT_DATA is addr of select data vector s 4 
. ne eco : 
3 Oe Og +6 
; 208 0 MAP 

; 2084 04 FOLDER_DESC : REF S$BBLOCK, 

3; 2085 05 SELECT_DATA : REF VECTORC,LONG); 

; O86 06 

: 208 07 IND 

; 2088 $508 QUAL_FLAGS = SELECT_DATACO] : $BBLOCK; 

3 2089 209 

3 2090 $5i9 2 LOCAL 

; 2091 $i 2 DESC : REF $BBLOCK, 

3; 209 § \¢ § FOLDERSEL, 

; 209 21 STATUS; 

3; 2094 $sié 2 

3 2095 215 ' 

; 44 $516 : If explicit /NEW, ensure in default message file 

3; 2098 2218 2 IF .QUAL_FLAGSCQUAL_NEW] 

: 2099 2219 ¢ ND NOT .MAILSGC_FLAGSCMAIF_V_DFMSG) 7 fF 
: 2100 2220 THEN BEGIN 

3 2101 2221 3 AL 

; 136 $$5§ ; TDESC : VECTORC2,LONG); 

; 210 $$§ 

; side 224 3 TOESCEO) = 0; 

> 2105 2225 3 TDESCL1) = THESCCO); 

: $108 2226 MAILSOPEN_FILE(TDESC); 

; 2107 2227 3 F NOT .MAILSGL_FLAGSLMAIF_V_DFMSG) 

; 2108 228 THEN RETURN FALSE; 

3 2109 $§3 H 

3 611? 230 

3 a $$% MAILSDESELECT_MSGS(); 'Delete any current messages 

; 118 238 FOLDERSEL = .FOLDER_DESCCDSC$W_LENGTH) NEQ 0; 

3 2114 $0 IF NOT .FOLDERSEL 

3 2115 235 THEN DESC = MAIL$Q_MSG_FNM 

3: 2116 2236 ELSE DESC = .FOLDER_DESC; 

; siz HHA IF .QUAL FLAGSCQUAL neu] 

3 2118 238 OR NOT (.QUAL_FCAGSCQUAL BEFORE] OR .QUAL_FLAGSCQUAL_SINCEJ | 

3 2119 +44 0 MATT ae 

3 2120 40 AND .MAILSGL_FLAGSCMAIF_V_DFMSG) | 

3 2121 41 THEN BEGIN 

3 \$¢ ri} IF NOT .QUAL_FLAGSCQUAL_NEW) 

3 21 4 THEN QUAL FLAGSTQUAT IMPLIED_NEW] = TRUE; 

3 2126 44 QUAL_FLAGSCQUAL_NEW) = TRUE; 

3 2125 45 QUAL_FLAGSLQUAL SINCE] = TRUE; 

: 2126 46 DESC™= MAIL$SD_REWMAIL; 
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D 
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#1, MAILSOPEN FILE 
> MAILSGL_FCAGS+1, 8$ 
#0. MAILSDESELECT_MSGS 


@F OLDER_DESC 
2$ 

RO 

FOLDERSEL, 3$ 

mA MAIL$Q_MSG_FNM, DESC 
FOLDER_DESC, DESC 

a4, (R2), 5$ 

(R2), 6$ 

#i, (R2), 6$ 

FOLDERSEL 6$ 

i Tats FLAGS+1, 6$ 
ir, (R2) 


MAILS D NEWMAIL, DESC 
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et RAILSGL _FLAGS+1 
IL if NMG 
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ESC 
a a PY 
STATU i, : 
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GLOBAL ROUTINE MAILSREMOVE_I_MSG = 
FUNCTIONAL DESCRIPTION: 
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' 
' 
; INPUTS: 
! 


MAILSL_MSG_NUM is msg number 


DEALLOC_MSG(): 
MAILSL_ASGTBLE.MAILSL_MSG_NUM-1) = 0; 


MAILSL_MSG_STS = MAIL$_NOTREADIN; 
RETURN TRUE 
END; 
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0000 00000 
EBDC CCF 00 FB 00002 
51 00000000" 00 b0 00007 
50 000000006 00 00 4444 
FC A140 04 0001 
000000006 00 007E8022 8F D0 00019 
50 01 DO 00024 
04 00027 


; Routine Size: 40 bytes, Routine Base: S$CODE$S + 1988 


MAILSL_CURMSG points to descriptor 


Deallocate memory for msg and zero entry in msg tbl 


MAILSREMOVE_I_MSG, Save nothing 
#0, DEALLOC-MSG 

MAILSL_MSGTBL, R1 
MAILSL_MSG_NUM, RO 


seseattee 
#8290338, MAILSL_MSG_STS 
#1, RO 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1- Sep-1984 VAX-11 Bliss-32 V4.0-742 P 
Hives 12-0 e=188e 93:25:9) Peek RAAS FERS MAID Shea 1sues.03251° 2% «oes 
; 159 7 GLOBAL ROUTINE MAILSDELETE_I_MSG = 
; 16} 3 FUNCTIONAL DESCRIPTION: 
; 168 1 ! Delete msg by filing into wastebasket folder 
: 2165 4 1 | INPUTS: 
; 166 4 1: 
: 216 ; Hi MAILSL_CURMSG points to msg 
: 198 § : MAILSL_MSG_NUM is msg number 
; 176 88 BEGIN 
: 7 90 LOCAL 
: 217 91 REF $BBLOCK 
17 3% HDREG : REF $BBLOCK; 
: 176 94 2 IF -MAILSL CURMSG Ea, 0 
; 444 3 THEN RETURN MAILS$S_NOTREADIN; 
; 12? 24 7 Don't allow a DELETE command in the wastebasket folder 
: 2181 99 2 IF CHSEQL(.MAILSO CURFOLDERCDS CSW LENGTH] gMAILsa_ CURFOLDERLDSC$A_POINTER), 
3 182 00 -AAILSQ WASTEDESCCDSC SW HJ 
: 218 301 MAIL$Q™ UASTEDESC DSCSA ~bOINTERS, 0) 
3 2185 308 THEN RETURN RAILS _DELWASTE 
> 2186 37 HDREC = AILSL CURMSGCMMB_T aunts 
3 3187 305 IF .MAILSL_CURASGCMMB_V_NEWASG) 
: 2188 306 3 THEN BEGIN 
> 2189 307 a - = HDRECCMER T_DATA); 
; 2190 2308 V_N 
: 2191 309 sth SL CURMSCCANG. V NEWMSG) = 0; 
; 3198 310 mal Its SDECR SNEWNAILTMAILSO “USERNAME) ; 
: 219% 3312 a DREFCHER.B B_FILKEYLEN] = .MAIL$Q_WASTEDESCCDSC$W_LENGTH); 
> 2195 2313 2 CHSCOPY(.MATL$Q_WASTEDESCC(DSC$W_CENGTH),.MAIL$Q QASTEDESECDSCSA_ POINTER],0, 
; 2196 314 MFR_S_FILEKEY, NORECERER i _FILEKEY]); 
: 2198 P 2316 2 IF_ERR(MAILSUPDATE_I MSG(); 
; 199 317 RETURN .STATOS); 
; $04 319 2 MAILSREMOVE_I_MSG(); 
3 308 320 RETURN TRUE 
3; 220 1 
+ 2206 322 1 END; 
007¢ 000 ENTRY MAILSDELETE J 1_MSG, Save R2,R3,R4,R5,R6 3 2277 
56 00000000" 00 9€ 0000 MOVAB MAILS$Q_WASTEDESC+4, R6 ; 
54 0c ag p 0009 ROVL MAILSL~ ~CURMSG, Re 3 229% 
50 007E8022 8F p O00F MOVL #8290338, RO > 2295 
4 00016 RET : 
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14-Sep-1984 2: 
FLOBAL ROUTINE MAILSFILE_I_MSG (NEW_FOLDER,CONFIRM_FLAG) = 
FUNCTIONAL DESCRIPTION: 
File a msg into a different folder 
INPUTS: 
; NEW FOLDER addr of descriptor of new folder name 
/ CONFIRM_FLAG = true to ask if new folder is about to be created, 
false to just signal the fact 
IMPLICIT INPUTS: 
MAILSL_CURMSG points to msg 
} ROUTINE VALUE: 
; Returns RMSS$_RNF if not confirmed to create new folder 
MAP 
NEW_FOLDER : REF $8BLOCK; 
LOCAL 


MMH : REF $BBLOCK, 
HDREC : REF S$BBLOCK; 
IF .MAILSL_CURMSG EQL 0 
THEN RETURN MAIL$_NOTREADIN; 


HDREC = MAILSL_CURMSGCMMB_T_HDREC); 

HOREC(MFR_B _FICKEYLEN) = [NEW FOLDERCDSCSu LENGTH); 
CHSCOPY(.REQ_FOLDERCDSC$W_LENGTH),.NEW FOLDERCDSCS$A_POINTER),0, 
MFR_S_FILEKEY,HDRECCMFR_T_FILEKEYJ); 


If folder doesn't exist, issue informational that folder created 


RABSM_NLK; 
HDRECCMFR_T_FILEKEY); 
MFR_S_FILEKEY; 
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MAIL$T~RD-RABLRAB$B-RAC) = RABSC_KEY; 
IF NOT~(NEWF = $FIND(RAB=MAIL$T_RD_RAB)) 


BEGIN 
IF .CONFIRM_FLAG 
THEN IF "NOT MAILSCONFIRM(YN_DESC 
MAILSFAO_GETMSG( 
up, THEN RETURN RMSS_RNF; 


MAIL$_CRENEWFOLD, .NEW_FOLDER)) 


$L_CURMSGCMMB_V_NEWMSG) 


DRECCMFR_T_DATA); 
MMH_V_NEWMSGJ~= 0; 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX=11 Bliss-32 v4.0-742 e 91 
yoLtobS 18-808- 1382 90:23:98 DISKSVMSMASTER: CMAIL. SRCJISUBS.B32;1 Pag (29) 
> 2263 0 MAILS$L_CURMSGCMMB_V_NEWMSG] = 
3 2264 1 MAILSDECR_NEWMAILTMAIL$SQ SESE RNARED ; 
: 2265 5 END; 
; € P 2384 IF ERR (MAIL SUPDATE 1_MSG();, 
; 68 85 RETURN .STATOS); 
: 2270 88 IF NOT .NEWF 
; 4 : THEN SIGNAL (MAIL$_NEWFOLDER,1,.NEW_FOLDER); 
: 227 90 MAILSREMOVE _J_MSGQ); 
; ie 31 RETURN TRUE~ 
: 2276 98 1 END; 
03FC 00000 ENTRY MA.LSFILE. 1_MSG, Save R2,R3,R4,R5,R6,R7,R8,-; 2323 
59 00000000' 00 9€ 00002 MOVAB MAILSL_CURMSG, R9 : 
58 000000006 00 9€ 00009 MOVAB MAILS$T-RD_RABS4, RB : 
56 69 00 90010 MOVL MAILSL =CURMSG, R6 + 2353 
08 12 0001 BNEG : 
50 007€8022 BF 0 00015 MOVL +8290338, RO > 2354 
56 47 Ab 9E 0001D 1$: MOVAB 71(R6), HDREC : 2356 
57 04 Ac 00 00021 MOVL NEW FOLDER, R : 2357 
08 A6 67 90 00025 MOVE. = (R7J, BCD DREC) ; 
27 00 04 2B7 . 67 2¢ 9009 MOVCS (R7), a4(R7), #0, #39, 9(HDREC) + 2359 
68 00100000 8F vO Go0$4 MOVL #1048576, MAIL$T_RD_RAB+4 + 2363 
2c A 09 A6 9E 00038 MOVAB 9<HDREC) MAILST. RD =RAB+48 + 2364 
0 As 0127 BF BO 9005p MOVW mAiLst ABT52 + 2365 
1A AB 01 90 0004 MOVB i RB" Pa 30 : 2367 
FC AB OF 00047 PUSHAB malt stk > 2368 
000000006 00 01 FB 004A CALLS SYSSF IND : 
52 50 pO 00051 MOVL RO: NEWF : 
2D 52 £8 00054 BLBS NEWF, 2$ ; 
29 08 AC €9 00057 LBC  CONFIRM_FLAG, 2$ : 2370 
57 DD 00058 PUSHL : 2372 
OO7EDF38 BF DD 005p PUSHL #8314680 ; 
000000006 00 98 FB 906 CALLS #2, MAILS AO_GETMSG : 
DD 0006A PUSHL R ; 
00000000' 00 9F 006¢ PUSHAB YN. DESC : 2371 
000000006 00 98 re 00 é CALLS = MAILSCONFIRM ; 
08 E8 0007 BLBS 3s ; 
50 00018282 BF BO orc MOVL nO, 4, RO > 2373 
50 69 09 084 2$ MOVL MAILSL _CURMSG, RO > 2376 
17 0A AO €9 00087 BLB 10(RO)> 3$ ; 
56 0 ¢O 00088 ADDL , MMH : 2378 
66 1 BA 0 F BICB (mI) : 2379 
OA A 1 BA BICB2 owl (RO) > 2380 
000000006 00 9F 00095 PUSHAB male AME : 2381 
000000006 00 1 FB 00098 CALLS LOAILSBECR _NEWMAIL ; 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss-32 V4.0-742 Page 92 
v04-000 14-Sep-1984 12:42:20  DISKSVMSMASTER:CMAIL.SRCJISUBS.832;1 (29) 
EE24 CF 0 FB O0A2 3$: CALLS #0, MAILSUPDATE_I_MSG : 2385 
iC E9 000A BLBC STATUS, 5$ : 
11 £8 QOAA BLBS NEWF. is + 2387 
DD OOOAD PUSHL R + 2388 
o1 DD OOOAF PUSHL #1 : 
OO7EBEAB 8F DD 00081 PUSHL #8306347 : 
000000006 00 03 FB 000B7 ALLS #3, LIBSSIGNAL ; 
FEA2 CF 00 FB O08 4$ CALLS #0, MAILSREMOVE_I_MSG + 2390 
50 01 pO 000C¢ MOVL #1. RO + 2391 
04 000C6 5$: RET + 2393 


; Routine Size: 199 bytes, Routine Base: S$CODE$S + 1A56 
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A: FLOBAL ROUTINE MAILSINFO_FOLDER(NAME_DESC,SEARCH_MODE) = 
0 
1 
8 
8 
84 
85 
86 
87 
88 
89 
90 
4! 
38 
94 
95 
96 
97 
98 
OY 


FUNCTIONAL DESCRIPTION: 


} Return next folder name 
INPUTS: 
i 
1 


E_DESC = — of eesce ‘ere’ 4 of aterese peint 


SEARCH -MODE = 0 to search to searc 


408 NAME_DESC : REF VECTORC2,LONG); 
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; 1 
3 1 
$ 1 
; 1 
; 1 
3 1 
$ 1 
$ 1 
3 1 
3s 2e 1 
3 : 1 
: 409 
; 410 2 BUILTIN 
: 4] NULLPARAMETER; 
8 ge $t18 CAL 
> 22 414 STATUS 
: 299 415 FOLDERBUF : SBBLOCKCMFR_S_FILEKEY); 
: 2301 2417 ; IF .NAME_DESCCO] GTRU 0 
; 30¢ 2418 THEN” CHSCOPY ( .NAME DESC SCCO), .NAME DEsc(1], O.MFR_S_F ILEKEY, FOLDERBUF ) 
; 308 e419 3 ELSE EHSFILLCON MFR~S_FILEKEY, FOLDERBUF 
: 2305 2421 2 MAIL$T_RD_RABCRABSL_KBF) = FOLDERBU 
; 2306 24 : MAIL$T~RD"RABCRABSB_KSZ] = MFR_S_ PYLEKEY: 
: 2307 24 MAIL$T—RD-RABLRABSB_KRF) = 1; 
: 2308 2404 2 MAIL$T~RD-RABLRAB$SB_RAC] = RABSC_KEY; 
> 2309 2425 2 MAILST-RD-RABLRABSL_ROP] = RABSM-LOC ‘OR RABSM_NLK: 
: 2310 2426 3 MAILST-RD-RABLRABSV_KGE) = (IF NOT NULL PARAMETER (2) 
BB py aE 
3 313 3429 $ MAIL$T_RD_RABCRABSV_KGT] = NOT ity RD_RABLRABSV_KGE); 
; $¢ tt 2 MAILST_RD_RABCRABSL_CTX) = MAILS_ READERR;~ 
: 2316 3432 IF (STATUS = $GET(RAB=MAIL$T_RD_RAB)) 
> 2317 43 THEN BEGIN 
: 2318 2434 D 
3 319 3435 HDREC = .MAILS$T_RD_RABCRABSL_RBFJ : $BBLOCK; 
: 321 3437 NAME ~PESCeo} = .HDRECCMFR_B FILKEYLEN]; 
: 32¢ 438 NAME~DESCL1) = HDRECCMFR_T_FILEKEY 
3 L 
324 stip ELSE IF .STATUS NEQ RMS$_R 
; 325 gaa THEN UTILSREPORT_10_ ERNOR(MAILST _RD_RAB); 
: 355 ek RETURN .STATUS 
3; 2328 2444 1 END; 


0OFC 00000 -ENTRY MAILSINFO_FOLDER, Save R2,R3,R4,R5,R6,R7 
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SCODES + 1810 


WAILST RD_RAB+4, R7 
#40, SP 

NAME_DESC, R6 

(R6) 


1$ 
(R6), @4(R6), #0, #39, FOLDERBUF 


2$ 
#0, (SP), #0, #39, FOLDERBUF 


FOLDERBUF, MAIL$T_RD_RAB+48 
#295, MAILS$T_RD_RAB+52 
#1, MAILS$T RAB+ 
witiaiig, MAICS$T_RD_RAB+4 
(AP), # 

3$ 

(AP) 

SEARCH_MODE, RO 
4$ 


RO 
RO, #5, #1, MAILS$T_RD_RAB+6 
a5, 48 MAILS$T_RD_RAB#6, RO 


RO. #6, #1, MAILS$T_RD_RAB+6 
#8261808, MAIL$T_RD_RAB+24 
MAILST RAB 


STATUS, 
MAILS$T_RD_RAB+40, RO 
8(RO),~ (RB) 

9(RO), 4(R6) 


6 
STATUS, #98994 
6$ 


MAILST_RD_RAB 
#1, UTILSREPORT_I0_ERROR 
STATUS, RO 
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VO4=008 Ve=8ep-1986 13:45:50 DISKSVNSMASTERSCMAIL .SRCIISUBS.032; 1° ° 7°31) 


; 9 445 GLOBAL ROUTINE MAILSISAM_INIT = 
3 ¢ ca } ; FUNCTIONAL DESCRIPTION: 
: ¢ is ! ! Read in mail file info records and set up data for later use 
; 451 2 BEGIN 
3 7 12g | 
; 8 45 LOCAL : 
: 2339 454 DESC i _VECTORE2 LONGI 
: 2340 455 RECDESC : VECTORE2,LONG); | 
; 4) te 
3 ri} 4 ! 
3 oh +28 ; Get the wastebasket folder name 
; Sace 460 DesctO] = XCHARCOUNT ("WASTEBASKET') 
+ 2346 461 DESC = UPLIT(ZASCII 'WASTEBASKET'S: 
+ 2347 46¢ IF WAILSREAD_ INFO_REC(MAILS$T_RD_RAB,MFR_C_WASTENAME ,0,RECDESC) 
> 2348 gh6 THEN 
: 2349 464 ta 
; 3350 3465 ; WASTENAME = .RECDESC[1] + SBYTEOFFSET(MFR_T_DATA) : VECTORC,BYTE); 
; 2352 3467 IF .WASTENAMECLO] NEQ 0 
> 235 468 4 THEN BEGI ' 
> 2354 2469 4 DESC 03 = ,WASTENAME(O]; 
> 2355 2470 & DESCL1) = WASTENAMEL1]; 
> 2356 2471 3 END; 
: 2357 47g 2 END 
: 2358 2473 2 STRSCOPY DX (MAILS$Q_WASTEDESC,DESC); 
> 2359 2474 2 RETURN TRUE 
: 2360 2475 1 END; 
| 
01BBA .BLKB 2 
00 54 45 4B 53 41 42 45 54 53 41 57 O1BBC P.ABK: ASCII \WASTEBASKET\<0> : 
0004 00000 .ENTRY MAILSISAM_INIT, Save R2 > 2445 
52 EF AF i 00002 MOVAB P.ABK, R2 ; 
5E 10 C2 00006 SUBL2 #16, SP ; 
08 AE 0B DO 00009 OVL #11. DESC > 2460 
OC AE $2 9E 9900p OVAB P.ABK, DESC+4 > 2461 
E bp 11 PUSHL sp > 2462 
7E 08 D 00013 MOva (SP) ; 
000000006 9F 00016 PUSHAB aeitst ; 
EDB3 CF 4 FB 9901¢ CALLS #4, MATUSREAD.. INFO_REC ; 
12 0 €E9 00021 BLBC. —_ RO, -1$ ; 
50 04 AE 0 C1 00024 ADDL3 #48, RECDESC+4, RO > 2465 
60 93 0029 TSTB = (ROS > 2467 | 
09 13 0002B EQL «S18 ; 
08 A 60 9A 0002D MOVZBL (RO), DESC + 2469 
OC AE AO 9E 00 1 MOVAB. 1(ROS, DESC+4 : 3470 
08 AE 9F 00036 18: PUSHAB DESC > 247 
00000000' 0 9F 000 PUSHAB MAIL$Q WASTEDESC F 
000000006 00 FB 0003F CALLS #2, STRSCOPY_ ; 


MA AM_SUBS AM MAIL MESSA ROUTIN 
MAILEIS 9 I$ IL MESSAGE SUBROUTINES 


; Routine Size: 


74 bytes, 


50 


Routine Base: 


0 ek oes 


SCODES + 18C8 


ifde0c}9ee 99:54:01 vane dT ab isee 82 ye o> 


I 


p 
REIISUBS.B32:1 9 (395 


3: 2474 
3 2475 


“ 


As 


3; Routine Size: 


F 11 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1§ ~Sep-1984 00:54: VAX-11 Bliss-32 V4.0-742 Pa | 
efi 2 =8ep - 38 99:2 42: 34 DISKSVMSMASTER: CMAIL.SRCJISUBS.832;1 9° (335, 
476 1 ROUTINE DESELECT_IF_WASTEBASKET : NOVALUE = | 
are | i FUNCTIONAL DESCRIPTION: | 
rth : Deselect current messages if current folder is wastebasket folder 
48¢ 1 i-- | 
48 BEGIN | 
484 2 IF CHSEQL(. MAILS Q CURFOLDERLDSC C$W_LENGTH], .MAIL$Q_CURFO LDERCD DSC$A_POINTER] 
485 MAIL STEDESCCDSC$W_LENGTHJ, .MAILSQ_WASTEDESCLDSCSA_POINTERJ,0) 
486 THEN HAILSBESeC ERT See tse 
48 RETURN; | 
488 1 END; 
001C 00000 DESELECT_IF WASTEBASKET: 
WORD »R3,R4 3 2476 
54 00000000" 00 9€ 00002 MOVAB MAILSO. CURFOLDER+4, R4 : 
51 64 D0 00009 MOVL  MAILSQ"CURFOLDER+4,. R1 > 2484 
50 08 A& D0 0000C MOVL. MAILS$Q"WASTEDESC+4, RO 3 2485 
00 61 FC A& 2D 00010 CMPCS MAILSQ-CURFOLDER, (R1), #0, - 7 2484 
60 00017 MAILS$Q-WASTEDESC, (RO) : 
05 12 00018 BNEQ ; 
FS22.sCF 00 FB OOO1A CALLS #0, MAILSDESELECT_MSGS 3: 2486 
04 OOO1F 1$: RET 3 2488 
32 bytes, Routine Base: S$CODE$ + 1C12 


MAI 


' 
— 


11 
MAILSISAM_SUBS ISAM MAIL MESSA ROUTIN - 
2 ie AS -SUBS IL MESSAGE SUBROUTINES 18- Sep-1984 1 9: 


:54:01 VAX-11 BLiss-32_v4.0-742 8 
rae 8= 48s 99:23:9h Wheels tee hha loka rsues.es2-1° 28 38s 


: 76 4 9 i GLOBAL ROUTINE MAILSMOVE_WASTEBASKET (DEST_DESC) = 
; f 491 FUNCTIONAL DESCRIPTION: 
3 si $3? ! } Move the contents of the wastebasket folder to folder DEST_DESC 
; Be 495 2 BEGIN 
: 238 49 
: Re 198 = DEST_DESC : REF $BBLOCK 
; 86 499 
: 238 200 LOCAL 
; 2388 501 WASTENAMEBUF : S$BBLOCKCMFR_S_FILEKEY, 
; 389 208 RECBUF : REF $BBLO OCK; 
: 2391 504 2 DESELECT_IF_WASTEBASKET() 
: 9 505 2 CHSCOPY(<MATL$Q -wasTevesctoscsu W LENGTH] . sMAlLsO _WASTEDESCCDSCSA_POINTER], 
> 239 506 F ILEKEY WAS TENAMEBUF ) 
: 2394 507 2 MAILST_RD_RAB raps “AOF] = 0; 
: 2395 508 2 MAIL$T~RD-RABLRABSL_KBF] = WASTENAMEBUF: 
3 2396 2509 2 MAIL$T_RD-RABLRABSB_KSZ2) = MFR_S_FILEKEY; 
: 2397 2510 2 MAIL$T—RD-RAB RABSB_KRF = 1; 
: 2398 511 MAIL$T~RD-RABLRABSB_RAC] = RABSC_KEY 
; 2399 gig MAIL$T~RD_~RABLRABSL_CTX] = MAILS “URITEERR; 
3 2401 2514 3 WHILE $GET(RAB=MAIL$T_RD_RAB) 
> 240 2515 3 DO BEGIN 
: 240 2516 RECBUF = .MAILST RD_RABCRABSL RBFI: 
+ 26404 2517 3 RECBUFCMFR e FILREYCEN) = .DEST_DESCCDSC$W LENGTH; 
> 2405 2518 3 CHSCOPY(.DEST_DESCCDSCS W LENGTHT™ .DEST_DESC DSCSA_ POINTER],0, 
: 2406 2519 ; SaFR RS Stttts RECBUFCMFR T7FILEKEY)); 
3 rr 84 $250 ; ~lanriatiamnetials RD_RAB, -ERR=UTILSREPORT_10_ERROR); 
; $208 3392 : 
: 2410 52 RETURN TRUE 
> 2411 2524 1 END; 
01FC 00000 ENTRY MAILSMOVE_WASTEBASKET, Save R2,R3,R4,R5,R6,-; 2489 
58 000000006 9—€ 0000 MOV MAILST_RD_RAB, R8 : 
SE 8 o itd CURL ny SP ; 
DO. oAF FB 000 CALLS DESELECT_IF WASTEBASKET > 2504 
50 00000000' 00 p 001 MOVL MAILS ASTEDEST +4 : 2505 
27 00 60 00000000' 00 2c 0001 MOVCS MAILS$Q~ Was STEDESC, stat). #0, #39, : 
oF 00 0 UAT TENAME BUF ; 
04 AB D4 1 CLRL MALL AB+4 ; 2507 
39 A8 E 9E 00024 MOVAB WAS] ENARERLF, RAILST RD_RAB+48 : 2508 
4 A 0127 BF : 0028 MOV 295, MAILST +52 ~ : 2509 
if A 1 5 MOVB so fall T ROR > 2511 
1 007E10D0 BF 06 MOVL #826 6184 AAICST. RD _RAB+24 : 31 
04 f D A MOVL EST. pest, : 251 
58 DD F 1$: PUSHL R > 2514 
000000006 00 01 FB 0004 CALLS #1, SYSSGET ; 
| 
| 


H 11 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16 Sep-1984 VAX-11 Bliss-32 V4.0-742 P 9 
Het ox 808-1382 99:23:98) Peete tee Mh Ono e a sues.e32-1° 2" css 
2 50 E 47 BLBC ~=_- RO as : 
AP BR BREE Rata SBTLPT etapa gS aH 
27 00 88 B 4 : C i MOVCS aD 31-p gt. &f imeteUF #0, #39, 9(RECBUF) * 3519 
000000006 OF PUSHAB UTILSREPORT_IO_ERROR : 2520 
DD PUSHL R : 
000000006 00 FB CALLS , SYSSUPDATE ; 
p 1 B BRB ‘ t 2514 
50 1 B0 9060 2$ MOVL #1, RO + 2523 
4 00070 RET + 2524 


; Routine Size: 113 bytes, Routine Base: S$CODES + 1(32 
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= 


<z 


SS ee ee ee a . i co 


] 

"1 | 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1hasbp-1986 00:56:01 vAKe1t 32. V4.0-742 Page 100. 
yoLco08 1on08-13he 99:23:93 | PhS R:CMAIL.SRCJISUBS.B32:1 9 (34). 


; 413 5 ! ROUTINE UPDATE_DELCOUNT (MSGCOUNT) = 

; 419 $ ; FUNCTIONAL DESCRIPTION: 

3 ci? : : } Update the count of deleted msg bytes in the fileinfo record 

: “18 1 1 ie 

: 2420 g BEGIN 

° | 
421 LOCAL 

3 26 é 4 RECDESC : VECTORC2,LONG), 

: 26 535 RECPTR : REF BLOCK | 

+ 2626 3 6 RECRFA : VECTOR 

: 4 5 33/ TREC : $BBLOCKL HHOOFF SET (MER. T_DATA) +4]; 

: 2607 539 IF .MSGCOUNT EQL 0 | 

; ? : re THEN RETURN TRUE; | 

: 2430 4¢ IF MAILSREAD_INFO_REC(MAILST_RD_RAB,MFR_C_FILEINFO,1,RECDESC,RECRFA) 

: 431 54 THEN B 

: 432 544 RECPTR = .RECDESCL1); 

3 243 545 (RECPTRCMFR T T DATAI) <0 32. > = - CRECPTRCHER T_DATA])<0,32,0> + .MSGCOUNT; 

; 3434 2546 MAILSL_DELMSGENT = .(RECPTRCMFR 1 DATAJ)<0,32,0>; 

3 ste rtf a ILSUPDATE. INFO. REC (MAILS T_RD_RAB,RECDESC ,RECRFA); 

: 3437 549 ELSE BEGIN 

3 2438 550 (TREC CMFR_Q_DATINI)<0,3 +32,0> = MFR_C_FILEINFO; 

> 2439 551 (TRECCMFR-Q-DATIMJ+4) 

: 2440 $333 CHSFILL(OTMFR_S FILEKEY +1 TR “ TRECCMFR_B_FILKEYLEN)); 

+ 2441 55 (TRECCMFR_T_DATAJ)< -MSGCOURT; | 

+ 266 554 ILSL F MSGCNT = .MSG OUNT: 

+ 2646 555 RECDESE = $BYTEOFFSET(MFR.T_DATA) + 4; 

+ 2646 556 CDESCC1) = TREC; 

> 2445 557 MAILSUPDATE_INFO_REC(MAILS$T_RD_RAB,RECDESC) | 

3; 2446 558 D; 

+ 2667 559 ' 

5 rey | 2561 Check the threshold to determine if CONVERT/RECLAIM needs to be done | 

3 $36 26¢ IF NOT -MAILSGL _FLAGSCMAIF_V_RECL] 

3: 2451 56 AND .MAILSL_DELMSGCNT CRU -MAILSL_RECL_THRESHOLD 

3 43¢ 564 THEN BEGIN 

: 245 565 SIGNAL (MAIL$_RECLPLSWAIT); 

+ 2654 566 MAILSRECLAIMTO) ; 

3; 2455 567 N 

: 46 $68 5 RETURN TRUE 

; 245 569 END; 


O3FC 00000 UPDATE _DELCOUNT: 
WORD 


$9 000000006 00 9€ 0000 HOVAR MAILSTCAD RAB RO eee? ead 
8 00009000) 60 3 05 MOVAB MAILSL~DECMSGCNT ; | 

eD95 «CF NOVAB RAIL SUPDATE INFOCREC, R7 | 
E BC AE $5 MOVAB —-68( | 
6 4 ac 060 0001 ROVE RSGCOUNT, "RG ; 2539 | 


11 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1b-$e =1984 00:54:01 -VAX-11 Bliss-32 v4.0-742 Page 101 
yoLtob 1 ma 1 99:23:98 DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 -” (2) 
70 13 0001D BEQL =«-3$ : 
34 AE i 1F PUSHAB RECRFA + 2542 
40 AF F PUSHAB RECDESC F 
DD PUSHL # : 
; DD PUSHL # ; 
DD 9 PUSHL R : 
FFSO C7 03 FB CALLS #5, MAILSREAD_INFO_REC ; 
19 0 .€ BLBC =-_«RO,._:«*1$ ; 
5 40 AE DO 00 MOVL RECDESC+4 RECPTR + 2544 
30 A 56 CO 00 ADDL2 RG, 48(R + 3545 
6 30 AO DO 00038 MOVL 48(RECPTR), MAILSL_DELMSGCNT + 2546 
4 AE OF 90 F PUSHAB RECRFA + 2547 
40 AE F 4g PUSHAB RECDESC F 
59 DD 0004 PUSHL R ; 
67 03 FB 00047 CALLS #3, MAILSUPDATE_INFO_REC : 
1 11 0004A BRB 23 + 2542 
6E 03 7D 0004C 1$: MOVO #3, TREC + 2550 
28 00 6E . 00 2c O04 MOVCS #0, (SP), #0, #40, TREC+8 + 2552 
30. AE 56 DO 00056 MOVL 6, TREC+48 + 2553 
48 56 DO O005A MOVL 6, MAILSL_DELMSGCNT : 2554 
3c AE 34 DO 0005D MOVL #52, RECDESC : 2555 
40 AE bE 9E 00061 OVAB TREC, RECDESC+4 : 2556 
3¢ AE 9F 00065 PUSHAB Esc + 2557 
59 DD 00068 PUSHL R F 
67 02 EB 0006A CALLS #2, MAILSUPDATE_INFO_REC : 
000000006 00 95 0006D 2$ TSTB © MAILSGL_FLAGS : 2562 
1A 19 00073 BLSS 3$ : 
04 As 68 D1 00075 CMPL § MAILSL_DELMSGCNT, MAILS$L_RECL_THRESHOLD t 2563 
14 1B 00079 BLEQU : 
007EBEB3 8F DD 0007B PUSHL #8306355 : 2565 
000000006 00 01 FB 00081 CALLS #1, LIBSSIGNAL ; 
7E D4 00088 CLRL. 0s = (§P) + 2566 
0185 (C7 01 FB O008A CALLS #1, MAILSRECLAIM : 
50 01 DO O008F 3S: MOVL #1. RO : 2568 
04 00092 RET : 2569 


; Routine Size: 147 bytes, Routine Base: $CODE$ + 1CA3 
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MALSRAGAR-Su8S 1S4n MAIL MESSAGE SUBROUTINES 1eS9Be QB:E4:0) YARD TABLA? A “2s rss, oszs 1722" AB 
SOUT INE DELETE_EXTMSG(DATIM) : NOVALUE = 

} FUNCTIONAL DESCRIPTION: 

: Delete an external message file 


: CL 

: DECL 
NAMBUF : SBBLOCKTNAMSC MAXRSS], 
DESC : VECTORC2,LONG); 


° 
. 
o 
o 
° 
o 
ao 
. 
o 
. 
e 
° 
2 
. 
o 
© 
° 
° 
° 
° 
e 
. 
o 
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oa 
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° 
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DOOOOOWODOOOWDOO0O0 NNN NN 
mn 


hey tee whet ANI SSMDUE ARUN OOD 
POPIPIPOPIPIPIPOPIPINIPIPUAIPIPIPININPIPINININININIPININD 


; 1 

; 1 

; 1 

3 1 

; 1 

; 1 

; 1 

: ; 

5 5 

: : 

3; 2475 2 DESC 9 = NAMSC_MAXRSS; 

+ 267 DESCL1) = NAMBUF; 

> 247 5 MAILSFORM_EXTFILE(.DATIM, DESC); 

> 2478 P 25 SFAB_INITTFAB=TMPFAB, 

> 2479 P 25 ENS= .DESCEO : 

: 26 P 25 FNA=.DESCL 1 

> 2481 P 25 FAC=(GET, PUTS, ‘Need write access to file to fix prot 
> 248 P 25 CTX=MAIL$ FILNOTDEL, 

: 268 P 25 XAB=TMPXAB 

: 484 3 NAM=TMPNAMS ; 

: 26 P 259 SNAM_INIT(NAM=TMPNAM, 

> 2487 P 259 ESS=NAMSC_MAXRSS, 

: 2488 P 25 ESA=NAMBUF , 

: 2489 P 26 RSS=NAMSC_MAXRSS, 

: 490 6 RSA=NAMBUF) ; 

3 249 Pp $e SXABPRO_INIT(XAB=TMPXAB, 

3; 249 $ NXT=0); 

s 2496 6 

+ 2695 P 26 IF ERR(SOPEN(FAB=TMPFAB) ; , 

+ 2496 607 RETURN); 

: 2497 608 

: 2498 609 2 IF .TMPXABLXABSL_UIC] NEQ .MAILSL_MYUIC 

: 3499 610 3 THEN N 

: 2500 611 SCLOSE (FAB=TMPFAB) ; 

: 2501 61¢ TMPFABCFABSL_STS] = RMS$_PRV; 

; 308 61 TMPFABLFABSL-STV) = SS$_RNOPRIV; 

3 250 614 TMPFABLFABSL-CTX) = MAIC$ CLOSEDEL; 

+ 2504 3615 3 UTILSREPORT_TO_ERROR(TMPFAB) ; 

3; 2505 ois RETURN; 

: 25 61 END; 

: 250 618 ' 

3; 2508 61 ! Close the file, changing the protection to allow delete access. Then 
3 208 ° 9 } SERASE the file. 

3 2511 6 § TMPXABCXABSL_UIC] = 0; !Don’t need to change uic 
; 31 6 TMPXABLXABSWPROJ = DELETE_PRO; 

: 251 624 2 SCLOSE(FAB=TMPFAB,ERR=UTILSREPORT_I0_ERROR); 
+ 2514 625 (MPFABLFABSV_NAM) = 1; 

: 2515 626 2 SERASE(FAB=TAPFAB,ERR=UTILSREPORT_10_ERROR); 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTIN 
+ tat / E SUBROUTINES 


: 8319 


0050 = =8F 
0060 = 8F 
0058 =&F 


3656 


RETURN; 
END; 
eEXTRN 
00FC 00000 DELETE_EXTMSG: 
57 000000006 00 9€ 0000 MOVAB 
56 000000006 00 9E its MOVAB 
SE FDF4 ce 9E 0019 OVAB 
7E FF F 9A 01 MOVZBL 
oe 08 fF BB boote PUSHE 
04 AC ODD 900 " PUSHL 
E429 CF 02 FB 000 CALLS 
00 6E : 00 2c 00 8 MovcS 
BO AD 5003 8F BO $09 1 MOVW 
C6 AD 03 90 00037 MOVB 
c8 AD 007E11F2 8F DO iF MOVL 
CF AD 02 90 0004 MOVE 
D4 AD FEF8 CD 9E 00047 MOVAB 
D8 AD FF50 CD 9E 90040 MOVAB 
ee OD 0% GE 30 Soosa MOVE 
MOVC 
- * «wn B.* 2098 : 
FESO. CD 6002 SF BO 00066 MOV 
FF52 CD 01 8E 0006D MNEGB 
FF54 CD 08 AE Sf 00072 MOVAB 
FF5A CD 01 8E 0007 MNEGB 
FFSC CD 08 AE 9€ 0007D hy 
00 6E 00 2C 00083 MOVC 
cere CD 0008A 
FEF8 CD 581 8F B60 0008D MOVW 
BO AD 9F 00094 PUSHAB 
000000006 00 01 FB 90097 CALLS 
4F 50 £9 0009E BLBC 
000000006 00 FFOG cp D4 OO0Ai cAPL 
BO AD 9F Ooone PUSHAB 
67 gt Fe OOAF CALLS 
VL 
B8 AD 0001829A F OD 00B2 MO 
BC AD . pod aren MOVL 
a ee 
“ a 
FFO4 CD D4 000CD 1S: CLRL 
FFOO CD FF44 af 4 sed at tel 
B0 hy: F G0DA PUSHAB 
67 FB 00 0 CALL 
B7 AD i. OOE BISB 
6 DD 000E4 PUSHL 


11 
16-Se 1984 00:54:01 VAX-11 Bliss-32_ V4.0-742 
102 360-198¢ 13:23:90 DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 


2,R3,R4,R5,R6,R7 
OSE, R 
EPORT_IO_ERROR, R6 
P), SP 

pes 

» DESC+4 


D 
#2, MAILSFORM_EXTFILE 
#0, (SP), #0,-#80, SRMS_PTR 


#20483, SRMS_PTR 

#3, $RMS_PTRT22 
#8262130, $RMS PTR+24 
#2, $RMS_PTR+3T 
TMPXAB, SRMS_PTR+36 
TMPNAM, $RMS-PTR+40 
DESC+4. SRMS~PTR+44 


DESC $RMS_PTR+52 

#0, (SP), #0, #96, SRMS_PTR 
#24578, $RMS_PTR 

#1, S$RMS_PTRI2 

NAMBUF, SRMS_PTR+4 

#1 SRMS PTRT10 


N , SRMS_PTR+12 
#0, (SP), #07 #88, SRMS_PTR 


#22547, $RMS_PTR 


#1, SYSSOPEN 
STATUS, 3s 
TMPXAB+12, MAILSL_MYUIC 


PFAB 

SYSSCLOSE 
#98970, TMPFAB+8 
#36, TAPFAB+1 
#82621 70, TMPFAB+24 


TMPF 
#1, UTILSREPORT_I0_ERROR 


TMPXAB+12 
#-188, TMPXAB+8 


Page 


103 
(35) 


; 2601 


2604 


2607 


2609 
2611 
261 
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MA AM AM MAIL MESSA ROUTINES 4 VAX=11 Bliss-32 V4.0-742 
V0L+008 oe nal amr mgis hemes, 12: 30071 38c 93: 23: Hy DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 _— 33} 
BO ry oF E PUSHAB TMPFAB 3 
000000006 00 02 FB E CALLS #2, SYSSERASE : 
04 FO 2$: RET : 2628 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAKX-11 Bliss-32 V4.0-742 Page 106 
youto00 12x90 e- fhe 99:23:95 Phe ehle tea cMAie SRearsues.032-1° 2" ches 
; 2576 686 4 
; i st ? Read sequentially on the data records of the msg and delete them 
: 2579 689 4 MAILST RD_RABCRAB$B_RAC] = RABSC_SEQ; 
; 2580 690 WHILE (STATUS = $GET(RAB=MAILS$T_RD_ RAB)) 
; 281 691 Bind C- NSYATUS NEQ RMS$_OK_LIA) 
; Seng £36 g DELSPACE = DELSPACE + ,MAILST RD RABCRABSW_RSZJ; 
; 384 694 5 MAIL$T_RD_RABLR TX) = MAICS$ QRITEERR; 
: 2585 695 5 SOCLETE CRARCAT CET Lab _RAB,ERR=UTILSREPORT_10_ERROR); 
> 2586 696 4 END; 
3 eat4 697 END; 
| HE SR E> etete he acenens tweser fate 
3 elete the message header recor 
: 2590 5700 i ° 
: 2591 2701 MAIL$T_RD_RABCRABSL -RFAQ] = - HORE ALO]: 
; 2992 208 MAIL$T_RD-RABLRABSW_RFAG] = 
: 259 70 MAILS$T =RD “RABLRABSB RAC] = RABSC_ 
> 2594 704 MAIL$T~RD~RABLRABSL gtd, - iAlLs READER 
: 2595 P 2705 IF SERRTSGET (RAB-RAICST RAB, ERRSUTILSREPORT. 10_ERROR);, 
> 2596 P 2706 3 UPD DELCOUNTC. BELSP ACE); | 
: 2597 2707 3 RET ORAn” MSGCOUNT) 
: 2598 2708 3 DELSPACE = ;DELSPACE * "AAILSE RD_RABCRABSW_RSZ]; 
; 2599 2709 3 MMH = .MAL $T_ DB RABCRAS $L_RBFJ +” $BYTEOFFSET(MFR_T_DATA); 
: 2600 2710 3 IF .MMHCMMH_V~N 
: 2601 2711 & THEN BEGI | 
: 2602 gre 4 MMHCMMH_V_NEWMSG] = 0; 
: stl? : RAILSDECR- NEWMAIL (MAILSQ USERNAME) ; 
; 2715 3 MAILS$T ip RABCRABSL_CTX} = MAIL$_WRITEERR; 
; 2716 3 SDELETE(RAB=MAILS$T_RD DRAB, ERR= UTILSREPORT. 10_ERROR) ; 
; 2717 3 MSGCOUNT = .MSGCOUNT ? 
; 2718 3 IF .MAIL$GL FLAGSUMALF _V_CTRLCFLI 
; 2719 3 THEN EXTTLOOP; 
; 2720 2 END; 
: 2721 2 UPDATE -PELCOUNT<. DELSPACE); 
; 2722 2 RETURN” .MSGCOUN 
; 2723 +1 END: 


~-EXTRN SYSSDELETE 


OFFC 00000 eENTRY aa ae 1.55% ia Save R2,R3,R4,R5,- ; 2629 
000000006 00 9€ 00002 MOVAB male sR : 
38 C2 00009 SUBL2 #56, SP : 

00 FB 0000C CALLS #0 DESELeCT. IF _WASTEBASKET > 2649 

58 04 00011 CLRL. MSGCOUN > 2650 

56 D4 0013 CLRL DEL SPACE > 2651 

50 9000000" 00 B0 001 MOVL. MAIL$Q_WASTEDESC scr RO : 2652 
60 00000000" 00 2c 0016 MOVCS MAILSQ“WASTEDESC, (RO), #0, #39, ; 
10 AE 0 WAST NAME BUF : 

04 AB p4 7 1$ CLRL MAILST AB+4 > 2656 

19 AE F A MOVAB UASTENRAEBLF, MALLST sf? _RAB+48 : 657 

0127 BF ; 6 F MOVW ues 5 MAILST RABS52 : 2658 

01 90 00035 MOVB MaltST RO REB* 30 > 2660 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1 -1984 09:54:01 VAX-11 Bliss-32 V4.0- Pa 
v04=0 1 -1 :42:20  DISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 
5B DD 00039 PUSHL R11 
000000006 90 gi FB te CALLS , YSSF IND 
1 AB 02 56 b04 MOVB Py MAIL$T_RD_RAB+30 
; AB 28 As DO 00049 MOVL § MAILS$T_RD_RAB?40, MAILST_RD_RAB+48 
13S oorerogo $F BR GRRE REE HEsc IAT Tak Tanna 
000000006 80 oF BO0sA PUSHAB UTILSREPORT_IO_ERROR 
5B DD 90069 PUSHL R11 
000000006 0 08 FB 0062 CALLS #2, SYSSGET 
0 58 00069 2$: BLBS STATUS, 3$ 
OODF 31 9906¢ BRW 8S 
6E 10 AB b0 O6F 3$: MOVL §§ MAIL$T_RD_RAB+16, HDRFA 
04 AE 14 AB 3C 00073 MOVZWL MAIL$T~RD~RAB+20, HDRFA+4 
57 28 «AB 30 C1 00078 DOL #48, MAILST_RD RAB+40, PTR 
08 AE 08 A7 08 28 00070 MOVC #8, 8(PTR), KEYBUFFER 
30 AB 08 AE SE 00085 MOVAB KEYBUFFER, MAIL$T_RD_RAB+48 
08 67 03 a 0088 BBC #3, (PTR). 4$ 
08 AE SF 9008¢ PUSHAB KEYBUFFER 
FE7B OCF 01 FB OO08F CALLS #1, DELETE_EXTMSG 
1E AB 01 90 00094 4$: MOVB #1, MAIL$T~RD_RAB+30 
5B DD 00098 PUSHL 1 
000000006 00 01 FB 0009A CALLS #1, SYSSFIND 
41 50 E9 000A1 BLBC 
04 AB 4000 BF 3C OODA4 MOVZWL #16384, MAILST_RD_RAB+4 
1E AB 94 QOOAA CLRB MAILST_RD_RAB+30 
5B DD OOOAD 5$: PUSHL R11 
000000006 00 01 FB OOOAF CALLS #1, SYSSGET 
SA 50 DO 000B6 MOVL RO, STATUS 
29 5A €9 00089 BLBC = STATUS, 6$ 
00018051 §F SA D1 000BC CMPL = STATUS. #98385 
20 13 000C3 BEQL $ 
50 22 AB 3¢ 000C5 MOVZWL MAILS$T_RD_RAB+34, RO 
56 50 CO 0009 ADDL2. RO, DECSPAC 
18 AB OO7E10D0 8F DO O000CC MOVL #8261840, MAILS$T_RD_RAB+24 
000000006 00 9F 000D4 PUSHAB UTILSREPORT_10_ERROR 
5B DD OOODA PUSHL R 
000000006 00 02 FB 9000¢ CALLS #2, SYSSDELETE 
C8 11 OO0E BRB 
10 AB 6E DO OO0ES 6S: MOVL  HDRFA, MAIL$T_RD_RAB+16 
14 AB 04 AE BO 000E9 MOVW HDRFA+4, MAILST_RD_RAB+20 
1E AB 02 90 OOOEE MOVB #2 MAIL$T_RD_RAB+ 
18 AB OO7E10B0 8F DO OOOF MOVL #8261808, MAICS$T RD_RAB+24 
000000006 90 OF OOOFA PUSHAB UTILSREPORT_I0_ERROR 
B DD 00100 PUSHL R 
000000006 00 iy FB 00108 CALLS #2, SYSS$GET 
42 £9 010 BLBC STATUS, 8$ 
5 22 AB C 0010¢ MOVZWL MAIL$T RD RAB+34, RO 
56 3 CO 0011 ADDL RO, DECSPACE 
59 28 «AB 0 Ci 0011 ADDLS 448, NAILST_RD_RAB+40, MMH 
10 69 c9 011 BLBC. (MMH), 
69 1 8A 00118 BICB2 #t ) 
000000006 00 9F OO11E PUSHAB MAIL$Q_USERNAME 
000000006 00 1 FB 124 CALLS #1, MATLSDECR NEWMAIL 
18 AB OO7E10D0 8F 00 001 ® 7$: MOVL #8261840, MAIC$T RD _RAB+24 
000000006 90 9F 001 PUSHAB UTILSREPORT_IO_ERROR 
B DD 00139 PUSHL R11 
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MAILSIJSAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 18 4 AX= s- 0-74 
yas tf 1e= eee BBs 99:25 38h ee ObLS FER Mie cReaisuas.e32e1° om" ches 
aepee SAR ARIIE | FAKLS aac gugppcere i any 
03 000000006. 00 es O144 BLBS MAILSGL_ FLAGS+1, 8$ + 2718 
56 DD OO14E 8$: PUSHL DELSPACE + 2721 
FD27.—sCF 01 FB 00150 CALLS #1, UPDATE_DELCOUNT ; _ 
50 58 00 00155 MOVL § MSGCOUNT, RO : 2722 
04 00158 RET : 2723 


; Routine Size: 345 bytes, Routine Base: S$CODE$S + 1£27 
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on 
nN 


14-Sep-1984 
GLOBAL ROUTINE MAILSCHECK_DATE(RAB,DATETIME ,DEVDIRDESC) = 
i FUNCTIONAL DESCRIPTION: 


file open on RAB. If so, bump 
a free date/time. If none found, return error 


BEGIN 


file check is also made. 


RAB : REF $BBLOCK 
DATETIME : REF VECTORC,LONG): 


BUILTIN 
NULLPARAMETER; 


LOCAL 
FFLAG 
TMPFAB : $FAB DECL, 
TMPDESC : VECTOR *LONG), 
TMPBUF : SBBLOCKCNAMSC_MAXRSS); 
FFLAG = NOT NULLPARAMETER(3); 
TMPDESCC1) = TMPBUF; 
RAB RABSB_RAC] = RABSC_KEY; 
RABCRABSL_ROP) = RABSM“LOC OR RABSM_NLK;: 
RAB RABSB_KRF J 2 
RABCRAB$B_KSZ) = 
RABCRABSL-KBF) = 
INCRU I FROM 0 TO 
DO BEGIN 
IF NOT $FIND(RAB=.RAB) 
THEN BcGIN 
IF NOT .FFLAG 
THEN RETURN TRUE; 
TMPDESCLO) = NAMSC_MAXRSS; 
SYSSFAO(MAILSSD_EXTMSGNAM, TMPDESC, TMPDES 
.DATETIMEC1], .DATETIMELO 
$FAB_INIT(FAB=TMPF AB 


ENS=. TMPDESCEO) 
FNA=.TMPDESCL1]5; 


IF NOT S$OPEN(FAB=TMPF AB) 
THEN RETURN TRUE; 
SCLOSE (FAB=THPF AB); 
DATETIMELO] = ,DATETIMECO] + 1; 


F .DATETIMECO) EQL 0 
THEN DATETIMEL1] = .DATETIMEL1) + 1; 


DATETIME; 
12 


* oO 
uw 


S$: 


ETURN FALSE 
ND; 


=PINPIMIINWII BS BNE BEB BEE EEE ES UPNINININNNININININININPINPININPINIPINPINPININIDY 4 2 Ot SO 


Check to see if the date/time speci ties is already used in the 
ATETIME 512 times looking for 


DEVDIRDESC is an optional argument. If present, the external 


-DEVDIRDESC, 


F 12 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01  -VAX=11 Bliss-32 v4.0- Page 110) MAL 
youtobo 12-808-1 38 99 42 Hh DISKSVMSMASTER:CMAIL.SRCJISUBS.B32;1 -» an v04 
} 
O3FC 00000 eENTRY RAILSCHECK DATE. Save R2,R3,R4,R5,R6,R7,R8,-; 2724. 
5 FEAS CE 9E 9002 MOVAB -344(SP), SP : | 
0 6C 91 0000 CMPB. (AP), #3 : 2750! 
05 3 000A BGEQU 1$ : 
56 01 06 0000¢ MOVL #1, R6 : 
09 11 OO00F BRB 2$ : | 
56 04 00011 1$: CLRL = R6 : | 
0c AC 05 00013 TSTL  12¢AP) : | 
02 12 00016 BNEG 2$ : | 
56 06 00018 INCL R6 : 
56 56 D2 OO01A 2$: MCOML 6, FFLAG : 
AC AD 6E oF 00010 MOVAB TMPBUF, TMPDESC+4 : 2751 
58 06 AC D 00021 MOVL RAB, R + 2752 
1E AB 07 90 00025 MOVE #1, 30(R8) : 
04 a8 00110000 &8F dO 000¢9 MOVL #1114112, 4(RB) + 2753 
34 AB 08 BO 00031 MOVW oft (RB) > 2755 
57 08 AC DO 00035 MOVL DATETIME, R7 : 2756 
30 «AB 57 D0 00039 MOVL 7, 48(R8) : 
59 04 00030 CLRL : 2757 
58 DD OOO3F 3$: PUSHL R8 + 2759 
000000006 00 01 FB 00041 CALLS #1, SYSSFIND : 
5D 50 £8 00048 BLBS RO, 6$ : | 7 R 
4c 56 £9 00048 LBC FELAG, 4$ : 2761 
AB AD FF BF OA OO04E MOVZBL #255, TMPDESC : 2763 
67 DD 0005 PUSHL  (R7) + 2765 
04 A? DD 00055 PUSHL 4(R7) : 
0c AC dD 00058 PUSHL DEVDIRDESC > 2764 
AS AD 9F 00058 PUSHAB TMPDESC : 
AB AD 9F QOOSE PUSHAB TMPDESC $ 
E068 CF 9F 00061 PUSHAB MAIL$SD_EXTMSGNAM : 
000000006 00 06 FB 00065 CALLS #6, SYSSFA : 
0050 = 8F 00 6E “ 00 2¢ 20095 movcS #0, (SP), #0, #80, SRMS_PTR : 2768 
BO AD 50p3 8F 80 007 MOVW #20483, S$RMS_PTR : 
C6 AD 0 0 00078 MOVB #2, SRMS_PTRF 2 3 
CF AD 0 90 0007F MOVB # SRMS_ PTR+31 3 
DC AD AC AD 00 00083 MOVL TMPDESC#Z, $RMS_PTR+44 : 
—4 AD AS AD 90 0088 OVB = TMPDESC, $RMS_PTR+52 ; 
BO AD 9F D PUSHAB > 2770) 
000000006 00 1 FB 0090 CALLS #1, SySSOPEN : | 
04 0 € 9097 BLBS RO. 5$ : 
50 01 DO 0009A 4s: MOVL #1. RO + 2771 
04 09D RET : 
BO AD 9F Hi 5$: PUSHAB TMPFAB > 2772 | 
000000006 00 01 FB OOOA CALLS #1, SYSSCLOSE : 
67 D AB 68: INCL = (RP) : 2774) 
03 1 AA BNEQ © 7$ : 2775 
04 A? OD AC INCL 4(R7) : 776 | 
9 D6 OOOAF 7S: INCL 6s : 2757 | 
00000200 = &F 9 D1 0081 CMPL | #512 : 
5 18 00088 BLEGU 3$ : 


MAILRISAR.SUBS ISAM MAIL MESSAGE SUBROUTINES 18. Seo-1984 99: 23: H yi 8 32 v4. ie c ¢ “va 


X-11 Bliss- MAI! 

-Sep-1984 DISKSVMSMASTER:CMAIL.SRCJISUBS.B32;1 vou 

50 D4 BA CLRL RO 779 : ¢ 
Ba itt RET 780 ; s 


; Routine Size: 189 bytes, Routine Base: SCODE$S + 1F80 


H 12 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss-32 v4.0-76 
y0Ltob0 eae t38e 99:23:85 Naa ebl et Re hie shear sues.0s2.1° 28° has 


| 
3: 2673 781 1 ROUTINE COPY_GETREC (OUTDESC) = 
: 5674 78e 1 Is . | 
$ of? f ? : FUNCTIONAL DESCRIPTION: | 
: 267 785 1: Get next record of message 
: 5678 786 inn : | 
3; 2679 7 BEGIN | 
; 2680 788 
: 2681 789 MAP 
3; 268 790 OUTDESC : REF VECTORC,LONG); 
: $68 43> § Loca 
: eee 79 BA FLAG, 
: 26 794 ATOS; 
3; 2687 795 
3; 2688 796 IF .MAILSGL_FLAGSCMAIF _V_ISAM] 
3; 2689 797 THEN BEGI 
3; 2690 798 Ae = MAILSGET_I_MSG(.OUTDESC ,MORE_FLAG); 
; 2691 799 IF NO A 
3; 269 2800 TH Neh STATUS = RMSS$_EOF; 
3; 269 801 END 
3 2694 Hts ELSE ik 
3: 2695 803 4 IF (ST dy Be = a pesctOy-s 
3; 2696 2804 4 FHENC ESCCOJ™ “Taal MSG_RSIZ; 
3: 2697 $009 4 TDESC 13 = ,MAILSL_MSG_RADR; 
; 2698 806 4 ILSGET 
3; 2699 2807 3 ELSE stats = RM mss sPor. 
; 2700 2808 2 ND; 
; 2701 2809 2 RETURN * STATUS 
; 2702 2810 1 END; 


0004 00000 COPY_GETREC: 
WORD 


‘ Save R2 : 2781 
SE 04 C2 000 SUBL 2 : 
12 000000006 90 ES 0000 BLBC gprs _FLAGS, 1$ : 2796 
E DD 0 c PUSHL : 2798 
04 AC OD PUSHL : 
FIAI cf FB 91 CALLS vRALLSGET. 1_MSG : 
2 00 0 1 MOVL Tys F 
2F F 1 BLBS nO; STA : 2799 
1 0001¢ BRB $ + 2800 
52 000000006 09 1€ 1$: MOVL MAILSL m g _STS, STATUS > 2803 
iC E9 00 BLBC Os ; 
50 0 A bo 0 MOVL OuTDES Ro + 2804 
60 000000 06 C g MOVZWL MAIL W_ASG_ RS 1Z, (RO) : 
04 AO 000000006 D0 MOVL  MAILSL7MSG-RADR, 4(RO) + 2805 
000000006 00 9 FB CALLS 40, MATLSGET_MSG > 2806 
52 0001827A 8F DO 0044 a8: MOVL #98938, status + 2807 
2 b0 4B 3$: MOVL = STATUS. RO > 2809 
4 0004E RET > 2810 


; Routine Size: 79 bytes, Routine Base: S$CODE$ + 2030 


cc 
i 


13 


$s-32 V4.0-742 


VAX=11 BLi . Page 
DISKSVMSMASTER:CMAIL.SRCJISUBS.B32;1 . (38) 


:20 


4 
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1b-be 
1e-Sep=1 


MA LE] 5AR_SUBS ISAM MAIL MESSAGE SUBROUTINES 


PSS Oe Oe ee TS TS HS ES HS ES HS HS HE ERTS ESHEETS HEHE HS HS TS HS HS FS SE ee TE SE TS FS SES SES SCS SESS SSCS SSE “S*S*S HSCS FSFE *S SH SESE *S 


+ oe +} ca ISAM MAIL MESSAGE SUBROUTINES 
v04= 


<=z 
o,r 
re 


=1984 00:54:01  VAX=11 BLiss-32_v4.0-742 114 
198 99:23:8)  Ba Rade eRe Mien te ar sues.es2.1 28" hos 


704 ROUTINE COPY_MSG (FOLDER DESC ,OUTRAB)= 
106 i FUNCTIONAL DESCRIPTION: 

7 ' 

708 

09 


block so this is a short one. 


SN NNN NNN SSNS SSNS SSNS SG 


WA AIAN PUPP PURINUNUIR) 2 
MEUM "SO OONAOUSWN —“ODONOULSWNO 


] 
! Copy one ISAM message to the message file 


SOONAVE WN | O OONOUNE WN O ODNAUES WN OOONOUS WN 


VSI EY BS BS ES EY EEE WANNA NIIP PININIPINIPIIN 4 = SS Se 


8 
8 
4 
; 
8 F : VECTORC2,LONG), 'Note that this must parallel CNCTDEF 
2 8 .. SENDER DESC : DYN_DESC. DECL, 
: 8 TO DESC : DYN DESC DECC 
8 SUBJ_DESC : DYN DESC DECL, 
2 8 CC_DESC : DYN ESE bec ‘Always null string 
: 8 DUAMY _ADRL LST > VECTORC2.LONG), 
8 DUMMY“LNKLST : VECTORE2.LONG), 
2 8 DUMMY ~NADDRS, 
8 MSGBLRS 
8 DATE DESC : DYN_DESC_DECL; 
37 8 CAL 
7 8 MSGFLAGS : $BBLO ocKts * 
27 8 DATEBUF ,SBBLOCKL : é 
2736 8 DATE DESC2 : VEC TOR LONG), 
3737 8 DATETIME : VECTORC2, LONG); 
2739 8 DATE DESC2C01 a wate _DESC2C1) = 0; 
2740 8 MSGF LAGS = MUSE “DATIM OR_MCR_M_TELL_NEW; 
741 8 IF .MAILS Gu FLAGS MATF_V_ISAMJ 
74 8 THEN BEGIN 
74 P 28 IF ~ERR(MAILSREWIND — 
74h 8 RET UST: 
745 8 MAILSB OTRAN MMB_C_T 
746 85 RAILSIAFO I afts6(0. SUBJ~ DES ‘0.0, «SENDER DESC,0,T0_DESC); 
747 MSGBLKS RAILSL CURMSGCMMB_L Ks) 
748 CHSMOVE (8, MAILSL  PORMSG MMB T- tADREC DATETIME); 


EN 
ELSE BEGIN 
IF pee TURN, STATUS) »SUBJ_DESC ,DATE_DESC,TC_DESC,,MSGBLKS);, | 
MSGBLKS = SiS 7812: ‘Convert bytes to blocks 
IF SERRCRALLEREWIND “n360; 
ETURN”.STATUS); 
| 


THEN moO CR_V_SND_NEWMSG) 
INCR a I sae TO ¢ 


P60 4 4 tet tr tty 
po PASI 
NOUS WUN —OOONOUS Wl 


1 
1 
1 
} 
1 
1 
1 
BEGIN 
OUTRAB : REF S$BBLOCK 
OWN 
i FLINK through MSGBLKS are the start of a CNCT block which is passed to 
! MAILSWRITE_MSG. Note that MAILSWRITE 'NSG doesn't refer to anything else 
in the CNC 
LINK 
EN 
0 
C 
TRUE; 
4 THEN 3 ELSE 2) 
; OOP; 
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12 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES Sep-1984 00:54:01 VAX-11 Bliss-32 V4.0-742 15 
yoLto08 ety 7 90:23:93 DISKSVMSMASTER: CMAIL. SRCJISUBS.B32;1 ag (493 
; 761 6 DATE_DESC2L1) = DATEBUF; 
3 163 n FILL out date/time so that current defaults are not used 
: 2765 87 $F AO(SDESCRIPTOR('!17AS:00.00') ,DATE DESC2. /DATE_DESC2,DATE_DESC); 
; 166 er8 SB 1NTINCTIMBUF=DATE_ beste iTRadke =DATETIME) 
3 168 ae IF NOI RAILSCHECK_ DATE (.OUTRAB, DATETIME) 
: 2770 87 CHSMOVE (DSC$C_S_BLN,UTILSGETF ILENAME(.OUTRABCRABSL_FAB]) ,DATE_DESC2); 
3 e771 78 SIGNAL (MAIL$_BATIM USED 5. DATETING DATE DESCe)« > “ 
3 af 9 RETURN MAIL$~DATIMUSED 
: 2774 881 2 RETURN MAILSWRITE_MSG(COPY ~GETREC, FLINK,.FOLDER_DESC 
> 2775 B8¢ MSGFLAGS, .OUTRAB, DATETIME) 
: 2776 88 
: 2777 884 1 END: 
30 30 2E 30 30 3A 53 41 37 31 21 «0 8c P.ABM: “ASCII \!17AS:00.00\ : 
000 08, 9209 098 P.ABL: <LONG 11 ; 
000 5: 020 -ADDRESS P.ABM : 
.PSECT S$OWNS,NOEXE,2 
000B4 FLINK: .BLKB 8 
OO# OOOBC SENDER_DESC: 
<BYTE 0[2] : 
02 OEF 0008 -BYTE 14, 2 ; 
000¢ -BLKB 4 
QO# 000C4 TO_DESC:.BYTE 02] F 
02 O€ 000C .BYTE 14, 2 : 
000¢ “BLKB 4 
O0# OOOCC SUBJ_DESC: 
-BYTE 0[2) : 
02 OE€ 000C 14, 2 ; 
00D -BLKB 4 
00# 000D4 CC_DESC:. BYTE 0(2) : 
02 OF 000D -BYTE 14, 2 ; 
00D -BLKB 4 
O0DC DUMMY -ADRLST : ' 
000E4 DUMMY LNKLST: ‘ 
OOOEC DUMMY _NADDRS: 
-BLKB 4 
900F0 MSGBLKS:.BLKB 4 
00# O00F4 DATE_DESC: aah 
OE 0006 “BYTE of 2 : 
000F8 <BLKB 4 


-EXTRN SYSS$BINTIM 
-PSECT SCODES,NOWRT,2 


<z 
R= 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 1beSe -1984 00:54:01 | VAX=11 Bliss-32 v4.0-742 Page 116. 
v04= 12-808 - 1 3be 99:25:9) DISKSVMSMASTER:CMAIL.SRCJISUBS.B32:1 (39) 
hime seg 2,R3,R4,R5,.R6,R7.RB.RO 2811 
° ave ° a . 7 . 
59 FOFB «CF O€ 9002 MOVAB MAILSREWIND_I/MSG, R9 : 
28 00000000' 60 H 000 MOVAB MSGBLKS, R8 ; 
E 0 ¢ : OF SUBL2# ; 
08 AE 7C 0001 CLRQ. DATE_DESC2 ; 846 
7 06 14 MOVL § #48, “MSGFLAGS + 284 
4 000000006 E 17 BLBC  MAILSGL_FLAGS, 1$ + 2848 
69 FB OTE CALLS ae MAIC$REWIND_1 MSG : 2851 
00000000" 00 05 $0 0 4 MOVE #5, MAIL$B_MSGTRAN : 3852 
D4 «AB OOF B PUSHAB TO’DESC : 285 
ve D4 00 CLRL = (SP) : 
CC AS 9F 000 PUSHAB SENDER_DESC : 
7E 7¢ 900 CLRQ. ss =(SP) : 
DC «AS. «OF 00035. PUSHAB SUBJ_DESC : 
re D4 00038 CLRL = =( SPY F 
0388 C9 : FB D005A CALLS #7, MAILSINFO_I_MSG : 
50 00000000" 00 DO 0003F OVL  MAILSL_CURMSG, RO > 2854 
68 3F AO DO 00046 MOVL.  63(RO), MSGBLKS ; 
6E 47 AO 08 3 O004A MOVC3 #8, 71(RO), DATETIME + 2855 
0090 31 0004F BRW 10$ > 2848 
58 DD 00052 1$: PUSHL RB + 2859 
D4 AB SF 00054 PUSHAB TO_DESC : 
04 A& 9F 00057 PUSHAB DATE_DESC ; 
DC AB 9F OO05A PUSHAB SUBJ~DESC F 
CC AB 9F 0005D PUSHAB SENDER DESC : 
000000006 00 05 FB 00060 CALLS #5, MATLSINFO_MSG : 
17 50 £9 00067 LBC. STATUS, 2$ : 
50 68 OOOOOIFF BF C1 O006A ADDL3 #511, MSGBLKS, RO + 2860 
68 50 00000200 8F (C7 00072 DIVL * RO, MSGBLK : 
000000006 00 00 FB 0007A CALLS #0, MAIL$SREWIND_MSG + 2862 
01 50 £8 00081 2$ BLBS § STATUS, 3$ F 
04 00084 RET : 
000000006 00 00 FB 00085 3s: CALLS #0, MAILSTEST_SEQ_NEW + 2863 
03 50 E9 0008C¢ BLBC RO, 4$ : 
57 01 88 0008F BISB2 #1. MSGFLAGS > 2864 
000000006 00 00 FB 00092 4$: CALLS #0. MAILSTEST_SUBJ + 2865 
05 50 £9 00099 BLBC =_-RO.: S$ : 
52 03 DO 0009C MOVL #3. R2 : 
03 11 0009F BRB 6$ : 
52 02 DO OO0A1 5$: MOVL #2, R2 : 
53 D4 QOA4 é$: CLRL | : 
oc 11 Ne BRB $ : 
000000006 00 00 FB OA 7$: CALLS #0, MAILSGET_MSG + 2866 
07 50 £9 OOOAF BLBC =_-RO.:«O9S : 
53 D6 000B2 INCL I : 
52 53 1 doB4 8$: CMPL J R2 : 
F 18 00B7 BLEGU 7$ : 
08 AE 0 p 0089 9$: MOVL #32, DATE_DESC2 : 2867 
OC AE 10 AE 9 0008 MOVAB DATEBUF, DATE_DESC2+4 : 2868 
04 AS OF 0 C PUSHAB DATE_DESC > 2872 
C AE 9F 000C PUSHAB DATE~DESC : 
10 AE 9F 000C PUSHAB DATE DESC : 
FF29. CF 9F OO0CB PUSHAB : 
000000006 00 04 FB OOOCF : 


P.AB : 
CALLS #4, SYSSFAO ; 
| 
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VAX-11 Bliss-32_V4.0-742 
DISKSVMSMASTER: CMAIL.SRCJISUBS.832; “pe 


Set 


#2, MAILSCHECK_DATE 


#8290466 
i bIBESIGHAL 


wo 
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VIS NSM ONL HOV S COL UWOoo 


COPY TREC 
#6, ASETBEG re msc 


ONOOVIDVOI "VO OONWV"OM"OVOIOI "OS 


; Routine Size: 


SCODES + 20A0 


e117 
(39) 
2873 


2875 


2877 


2878 


2879 
2882 
2881 


2884 
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N 12 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00: 
vO4~008 v +4 Hn 99: 


54:01 VAX-11 BLi 
14-Sep-19 2:20 


$-32 
4 R 


s V4. a 
DISKSVMSMASTER:CMAI ot 


4 44s 4 5 } GLOBAL ROUTINE MAILSCOPY_MSGS(FILE_DESC ,FOLDER_DESC,COPY_FLAG,SIGNAL_RTN) = 

$ re) 68? ! : FUNCTIONAL DESCRIPTION: 

3; 278 889 1! This routine copies either messages from sequential file into 

3 ree aay : an ISAM file or from one ISAM message file to another | 
3; 2786 B34 1! ALL_FLAG = 

3; 2787 895 1! MAILSV_ALL if to copy all current messages 

3; 2788 894 1! MAILSV_NIL if exclusive access needed 

; 2789 895 1! MAILSV_DELMSG if message should be deleted after copying 

; m0 3837 : } MAILSV_CONFNEW if confirmation of new folder creation 

; 279 898 BEGIN 

3; 279 2899 

3: 2794 900 MAP 

3; 2795 901 FILE_DESC : REF $BBLOCK, 

3; 2796 290 FOLDER_DESC : REF $BBLOCK, 

3: 2797 290 COPY_FCAG : $BBLOCK; 

3; 2798 2904 2 

3; 2799 2905 BUILTIN 

; 2800 2906 NULLPARAMETER; 

3; 2801 2907 

3; 2802 2908 LOCAL 

> 2803 2909 IFAB : SFAB_DECL, 

3 2804 2910 IRAB : $SRAB_DECL, 

3; 2805 2911 INAM : SNAM_DECL, 

; 2806 $aig 2 RABPTR : REF S$BBLOCK 

3 2807 391 2 DESC : VECTORC2 | ONG) 

: 2808 914 2 NAMESS : SBBLOCKCNAMSC_MAXRSS), 

: 2809 2915 2 FOLDERBUF : SBBLOCKCMFR_S_FILEKEY], 

; 2810 2916 2 DELETE_FLAG, 

; 2811 2917 2 SAVE_MSGNUM, 

; cas 2918 OPENIT 

> 281 2919 EXCLUSIVE_ACCESS, 

3 2814 2920 NEW FILE, 

3: 2815 2921 STATUS; 

3; 2816 $356 

3; 2817 292 RABPTR = IRAB; 

: 2818 P 2924 2 SNAM_INIT(NAM=INAM, 

3; 2819 P 2925 2 RSS=NAMS$C_MAXRSS, 

3; 2820 P 2926 2 RSA=NAMESS, 

3; 2821 P 2927 ESS=NAM$C_MAXRSS, 

; 2538 $99 ESA=NAMESS); 
: 2824 930 IF .FOLDER_DESCCOSCS$W_LENGTH] EQL 0 

2 tH 38 ; THEN STRSCOPY_DX(7FOLDER_DESC,,SDESCRIPTOR('MAIL")); 
3 2837 338 : See if file specified. If not, and sequential file, set up default 
; 2809 935 NEW FILE = 0; | 
; 2850 9 $ OPENIT = 1; 
3 2831 93 IF .FILE_DESCCDSC$W_LENGTH] EQL 0 

3 o3¢ 938 THEN BEGIN 
3; 283 939 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM] 

: 2834 940 4 THEN BEGI 

3; 2835 941 & STRSCOPY_DX(.FILE_DESC,SDESCRIPTOR('MAIL')); 
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v04-000 -Sep-1984 3 42 9 DISKSVMSMASTER: CMAIL. SRCJISUBS.B32;1 9 40 v0é 
> 2836 942 4 END ; 
: 83/ 943 4 ELSE BEGIN | ; 
3 2838 944 4 RABPTR = MAILST_RD_RAB; : 
3 2839 945 & OPENIT = 0; : 
; 2840 94 END; ; 
> 2841 94 END; : 
: Sees Me SE tee isting file b ifying CIF | 
$ ry to open existin ile spec n . 
: set? 34 ; Tey p 9 y specifying | 
: 2865 951 if .OPENIT ; 
> 2846 93¢ THEN N BEGIN ; 
; 3847 95 IFABCFABSL_CTX] = MAILS OPENOUT: : 
3 2848 954 EXCLUSIVE ACCESS = .COPY_FLAGCMCR_V_NIL]; | : 
3 2849 955 STATUS = MAILSCREATE_ISAM(IFAB,.RABPTR, INAM,.FILE_DESC,0, ; 
; 2850 2956 T.EXCLUSIVE_ACCESS OR MCR_M_CIF)); : 
3; 2851 soee IF NOT .STATUS | ° 
: 2852 958 4 THEN BEGIN : 
3 285 2959 4 IF .STATUS NEQ RMS$_SHR : 
3 2854 2960 4 THEN RETURN UTICSR $REPORT_1I0_ERROR(IFAB); : 
: 2855 2961 4 STATUS = MAILSCREATE_ISAM(IFAB;.RABPTR, LNAM, .FILE_DESC,O, ; 
: 2856 296¢ 4 .EXCLUSIVE_ACCESS); | : 
; 2857 2963 4 IF NOT .STATUS : 
3 2858 2964 4 THEN RETURN UTILSREPORT_IO_ERROR(IFAB); : 
; 2859 2965 4 NEW. FILE = 1; F 
; 2860 2966 3 ; 
3 2861 2967 3 CHSMOVE {oscSc S_BLN,UTILSGETFILENAME (IF AB) ,DESC) : 
; 286¢ 2968 5 IF ((, IFABCFABSC_STS) EQL RMS$_CREATED ; 
3 286 2969 4 OR .NEW w-FILe) : 
> 2864 2970 3 AND NOT NULCPARAMETER(4) ‘ 
3 2865 2971 3 THEN (.SIGNAL_RTN) (DESC); : 
3 2866 2972 2 END; ; 
3; 2867 2973 2! 3 
: 2868 2974 2! File the messages ; 
3 2869 2975 2! | : 
; $8 , $378 $ DELETE_FLAG = ,COPY_FLAGCMCR_V_DELMSG]; : 
3 says $38 § : If new folder confirmation requested, then see if the folder exists. : 
> 2874 2980 2 IF .COPY_FLAGCMCR_V_CONFNEW] : 
: 2875 2981 THEN BEGIN ; 
3 2876 298 3 CHSCOPY(. FOLDER DESCLDSCSW LENGTH]. . FOLDER. DESCLDSCS$A_POINTER], ; 
; 2877 298 R_ -f FILEKEY FOLDER BUF); 3 
: 2878 2984 RABPTRCRABS$B_RAC)~= RABSC : 
: 2879 985 RABPTRERABSL_ROP] = RABSM_ “toc OR RABSM_NLK; 3 
3 2880 986 RABPTRCRABSB_KRF = 3 
; 2881 987 3 RABPTRCRABSB_KSZ] = ni S PILEKEY; | : 
; oong 988 3 PTRCRABSL_K = FOLDERBU : 
: 388 989 4 IF $F INDTRAB=. ABE TR) : 
3 2884 990 3 THEN IF NOT ET amcYN ESC, | : 
3 2885 991 3 MAILSFA 0. GETRSG (MAIL$_CRENEWFOLD, .FOLDER_DESC)) | : 
3 2886 2994 THEN RETURN TRUE; 3 
: 2887 99 END; : 
3 2888 994 IF .MAILSGL_FLAGSCMAIF_V_ISAM) : 
; 2889 995 THEN BEGIN ~ 3 
: 2890 996 IF NOT .COPY_FLAGCMCR_V_ALL] ; 
: 891 997 4% THEN (IF COPY_MSG(. FOLDER DESC, .RABPTR) : 
3 2892 998 4 AND .DELETE_FCAG 3 


MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep-1984 00:54:01 VAX-11 Bliss-32 V4.0-742 Page 
yOLto00 ae 7 09:73:35 ISKSVMSMASTER: CMAIL.SRCJISUBS.B32;1 . 
; 2893 999 4 THEN MAILSDELETE_I_MSG()) 
5 2894 000 4 ELSE BEGIN dies 
+ 2895 001 4 SAVE_MSGNUM = .MAILSL_MSG_NUM; 
> 2896 00¢ 4 INCRO I FROM 1 TO .MATLSL-NMSG 
: 2897 00 DO BEGIN 
: 2898 004 MAILSL_MSG_NUM = .1; 
: 2899 005 IF (MATL$L-CURMSG = .MAIL$L_MSGTBLL.1I-1]) NEQ 0 THEN 
: 2900 006 5 IF COPY_MSG(.FOLDER_DESC, .RABPTR) 
: 2901 007 § AND” .DELETE FLAG 
: 290 008 § THEN MAILSDELETE_I_MSG(); 
: $30c sti d MAILEL fSG_NUM = .SAVE_MSGNUM 
; $308 O11 4 IF .SAVE_MSGNUM GTRU 5 : 
; 2906 Og 4 THEN MAILSL_CURMSG = .MAILSL_MSGTBLL.SAVE_MSGNUM-1]; 
> 2907 301 4 D 
: 2908 014 3 END 
: 2909 3015 3 ELSE BEGIN 
: 2910 3016 3 IF NOT .COPY_FLAGCMCR_V_ALL] 
; 2911 3017 3 THEN COPY MSG(.FOLDER_DESC,.RABPTR) 
; e912 3018 4 ELSE BEGIN 
> 291 3019 4 IF NOT MAILSFIND_MSG(1) 
> 2914 3020 5 THEN (SIGNALT.MAILSL_MSG_STS); 
> 2915 3021 5 .OPENIT 
3; 2916 3022 5 THEN SCLOSE(FAB=IF AB); 
> 2917 3023 4 RETURN .MAIL$L_MSG STS); 
; 2918 3024 4 DO COPY_MSG(.FOLDER DESC, .RABPTR) 
: 2919 3025 4 UNTIL NOT MAILSFIND_MSG(0); 
: 2920 3026 4 D 
: 2921 3027 2 END; 
: 2922 3028 2 
3 2923 3029 2 IF .OPENIT 
+ 2924 3030 2 THEN S$CLOSE(FAB=IFAB); 
> 2925 3031 2 
: 2926 3032 2 RETURN TRUE 
> 2927 3033 1 END; 
4C 49 41 4D 02106 P.ABO: ASCII \MAIL\ ; 
021DA -BLKB 2 
00000004 021DC P.ABN: . : 
00000000 0210 .ADDRESS P.ABO ; 
4C 49 41 4D O21E4 P.ABQ: ASCII \MAIL\ : 
00000004 Osis P.ABP: .LONG 4 ; 
00000000" O21EC -ADDRESS P.ABQ ; 
OFFC 00000 ENTRY MAILSCOPY MSGS, Save R2,R3,R4,R5,R6,R7,R8,- ; 
58 00000009" 00 9€ 0000 MOVAB MAILSL_MSGTBL, R11 : 
A FEA3 CF 9E 0000 MOVAB COPY ; ; 
5E FDDC CE 9E 0000 OVAB -548TSP). SP ; 
56 FF6C CD 9E 0001 OVAB IRAB, RABPTR ; 
0060 8F 00 6E sel 00 2c 0018 MOVCS #0, (SP), #0, #96, SRMS_PTR : 
FFOC CD Aa 8F BO 00022 MOVW #24578, $RMS_PTR ; 
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MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep- 4:01  VAX=11 Bliss-32 V4.0-742 e 121, MA} 
v04=000 14- Aen 1984 99: 23:55 DISKSVMSMASTER: CMA AIL.SRCJISUBS.B32;1 the (40) | v04 
FFOE CD 01 BE 9 MNEGB 4e SRMS_PTR+2 : F 
FEID CD 28 AE gt $8 E MOVAB NAMESS, RMS PTR+4 : ; 
FFI6 CD 07 BE 0034 MNEGB a. anh S$ _PTRF : ; 
id 0 A an foo |} 
eh B5 00043 TSTW CRD : | 3 
aa. 0045 BNEQ i$ : ; 
A2 AF 9F 0004 PUSHAB P.ABN + 2931. ; 
57 DD 0004A PUSHL R? : ; 
000000006 00 oe FB 0004 CALLS #2, STRSCOPY_DX : : 
58 D4 00053 1$: CLRL  NEW_FILE : 2935 ; 
59 01 DO 0005 MOVL #1, OPENIT : 2936 : 
52 04 AC DO 00058 MOVL FALE DESC, R2 + 2937 ; 
62 B5 0005C TSTW © (R2) : ; 
1E if 0005 BNEQ 3§ ; : 
OE 000000006 00 €E8 00060 BLBS § MAILSGL_FLAGS, 2$ + 2939 : 
BE AF SF 00067 PUSHAB P.ABP + 2941 ; 
52 DD 0006A PUSHL  R2 : : 
000000006 00 02 FB 6006¢ CALLS #2, STRSCOPY_DXx : : 
09 11 0007 BRB : 2939 : 
56 000000006 00 9E 00075 2s: MOVAB MAIL$T_RD_RAB, RABPTR > 2944 ; 
59 04 0007C CLRL  OPENIT + 2945 : 
03 59 ES O007E 3$: BLBS  OPENIT, 4$ > 2951 : 
008A 31 00081 BRW : : 
C8 AD OO7E10A2 8F DO 00084 4s: MOVL #8261794, IF AB+24 + 2953 F 
54 Oc ac 01 03 EF 0008C EXTZV #3, #1, COPY_FLAG, EXCLUSIVE ACCESS > 2954 : 
7E 54 04 ¢9 00092 BISL3 EXCLUSIVE ACCESS, -(SP) : 2956 : 
7E D4 00096 CLRL = = (§P) : 2955 ; 
52 DD 00098 PUSHL Re ; : 
FFOC CD 9F OO09A PUSHAB INAM : : 
56 DD O009E PUSHL RABPTR ; : 
BO AD 9F OOOAO PUSHAB IFAB ; : 
E66C CA 06 FB 000A3 CALLS #6, MAILSCREATE_ ISAM : : 
53 50 DO 0008 MOVL RO. 1h ; : 
3} 53 €8 OOOAB BLBS STA : 2957 ; 
00018684 &F 53 D1 OOOAE CMPL STATUS: t¥00020 : 2959 : 
1A 12 00085 BNEQ ; : 
54 DD 00087 PUSHL EXCLUSIVE_ACCESS + 2962 : 
ze D4 00089 CLRL. = (SP) > 2961 ; 
52 DD 000B8 PUSHL F : 
FFOC CD 9F O00BD PUSHAB INAM : F 
56 DD 000C1 PUSHL RABPTR : ; 
BO AD 9F 000C3 PUSHAB IFAB ; : 
E66C CA 06 FB C6 CALLS #6, MAILSCREATE_ISAM : | ; 
53 50 D CB MOVL RO, STATUS ; ; 
0B 53 34 0 CE BLBS _— STATUS, $3 > 2963 : 
BO AD 9F 00001 S$: PUSHAB IFAB > 2964 | : 
000000006 00 01 FB 0 os CALLS #1, UTILSREPORT_10_ERROR ; : 
58 01 DO 000DC $$ MOVL #1, NEW_FILE > 2965 F 
BO AD 9F OOODF 7$ PUSHAB IFAB : 2967 : 
000000006 00 01 FB Eg CALLS #1, UTILSGETE ILENAME : : 
FFO4 60 08 2 E MOVCS «6 #8. : : 
00010619 BF 88 AD D1 OOOEF CMPL IF Phase. 46 97 > 2968 | F 
9 13 000F7 BEQL $ : : 
8 £9 9 BLBC NEW_FILE, 9$ > 2969 | : 
6C 91 OOOFC 8S: CMPBs«C APY, #4 : 2970 | : 
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000000006 
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12-3 08- 1 3b 90:23:95 DI SKSVMSMASTER: CMAIL. SRCJISUBS.B32;1 (40) | v04 
0D 1F OOOFF BLSSU 98 : | ; 
10 aC D5 101 TSTL  16(AP) : : 
08 13 00104 BEQL «9S ; | 
FFOS CD 9F 00106 PUSHAB DESC + 2971 : 
BC o1 FB O010A CALLS #1, @SIGNAL_R : : 
01 7 EF 105 9$: EXTZV #7. #1, COPY “AG, DELETE_FLAG : 2976 ; 
4D OD aC E9 114 LBC. COPY_FLAG+1,~10$ + 2980 | : 
87 67 ¢ THRE MOVCS (R7)> pins #0, #39, FOLDERBUF : 2982 : 
Ab 07 90 OO11F MOVB = #1, 30(RAB : 2984 : 
A6 00110000 8F D0 00123 MOVL = #1 ystdg, 4 CRABPTR) + 2985 F 
Ab 0127 BF B0 01 B MOVW #295, 52K : 2987 ; 
Ab 6E 9E 00131 MOVAB FOLDERBUF. MOB (RABPTR) + 2988 ’ 
56 DD 00135 PUSHL RA ABPTR + 2989 ; 
00 01 FB 00137 CALLS #1, SYSSFIND : ; 
24 50 €8 0013€ LBS =—s_ RO, -:10$ : ; 
57 DD 00141 PUSHL : 2991 : 
OO7EDF38 BF DD 00143 PUSHL #8314680 : ; 
00 02 FB 00149 CALLS #2, MAILSFAO_GETMSG ; 
50 DD 00150 PUSHL RO : 
00000000' 00 9F 00158 PUSHAB YN_DESC + 2990 
00 02 FB 0015 CALLS #2, MAILSCONFIRM : 
03 50 ES 0015F BLBS RO, 10$ ; 
0000 31 00162 BRW 21 : 
01 01 EF 00165 10$: —EXTzv i, #1, COPY_FLAG, RO > 2996 
50 50 D2 00168 MCOML R : 
66 000000006 00 €9 00166 LBC MAILSGL _FLAGS, 15$ > 2994 
14 50 €9 0017 LBC + 2996 
56 DD 00178 PUSHL RABPTR : 2997 
57 DD OO17A PUSHL 7 : 
6A 02 FB OOI7C CALLS #2, COPY_MSG ; 
63 50 €9 0017F BLBC : 
60 58 €9 00182 BLBC DELETE FLAG, 16$ : 2998 
CA 00 FB 00185 CALLS MATLSDELETE_ 1_MSG 3: 2999 
59 11 OO1BA BRB 4 og : 2997 
53 000000006 00 DO 0018C 11$:  MOVL #$MAILSL_MSG_NUM, SAVE_MSGNUM : 3001 
54 F8 AB DO 00193 MOVL  MAILSLINMSG, R4 : 3002 
52 01 D0 0197 MOVL #1, I : 
e6 11 0019A BRB 14 : 
00 2 pO 0019C 12$:  MOVL I, MAILS$L_MSG NUM > 3004 
50 6B DO 001A3 MOVL MAIL$L_MSGTBL : 3005 
AB FC A04 00 O1A6 MOVL =4(RO)CIJ, BAILSL_ CURMSG ; 
12 13 OO1AC BEQL : 
36 DD 3 PUSHL RABPTR ; 3006 | 
DD 0018 PUSHL =” : 
6A 98 FB 1B2 CALLS a ¢ PY_MSG : 
08 E9 0018 BLBC ; 
05 58 £9 001B8 BLBC sien FLAG, 13$ : 3007 
CA FB 0018 CALLS MATLSDELETE_1_MSG : 3008 | 
D6 001C0 13$: INCL ; 3002 | 
54 D1 001C2 14$: CMPL R4 : | 
1B O01C BLEQU $ : | 
00 dO 001¢7 MOVL ay MSGNUM, MAILSL_MSG_NUM + 3010 
13 O01C BEQL ; 3011 
50 68 dd 0010 MOVL $MAILSL_MSGTBL : 3012 
AB FC A043 D 910 MOVL 4 (RO)CSAVE BUSGNUM), MAILSL_CURMSG ; 
4D 11 0010 BRB 20$ : 2995 | 


} 
F 13 
MAILSISAM_SUBS ISAM MAIL MESSAGE SUBROUTINES 16-Sep- 1984 09:54 :91 VAX-11 Bliss-32 V4.0-742 Page 123. 
v04 14- ~bep- :42:20 DISKSVMSMASTER:CMAIL.SRCJISUBS.B832;1 (4 7 
09 0 €9 001DB 15$:  BLBC 17$ ; 3017) 
$ bd 001D PUSHL RABPTR : | 
DD OO1E PUSHL R7 : 
6A 2 FB OO1E CALLS #24 COPY_MSG r 
41 11 OO1€ 168: BRB 208 : 
1 DD OO1E7 178:  PUSHL #1 + 3019) 
000000006 1 FB 169 CALLS #1, MAILSFIND_MSG : 
0 E 1F9 BLBS : 
000000006 DD OO1F PUSHL mAILst MSG_STS : 3020 
000000006 00 1 FB 169 CALLS L BSS GNAL : 
OA 9 f LBC OP btn : 3021 
BO AD SF PUSHAB IFAB : 3022 
000000006 00 01 FB CALLS #1, SYSSCLOSE ; 
50 000000006 00 B0 0 0p 18$: OWL MAILSL_MSG_STS, RO + 3023 
56 DD 09 15 19$:  PUSHL RABPTR + 3024 
57 DD 00217 PUSHL 7 : 
6A 02 FB 00 19 CALLS #2, COPY_MSG : 
7E D4 0021C CLRL (§p) + 3025 
000000006 00 01 FB 00 43 CALLS a MAILSF IND_MSG ; 
ED 50 £8 00 BLBS : 
OA 59 £9 00208 208:  —BLBC OPE NIT, 21$ : 3029 
BO AD SF 00228 PUSHAB IFA : 3030 
000000096 00 01 FB 002eE CALLS #1, SYSSCLOSE : 
50 01 00 00235 21$:  MOVL #1. RO : 3032 
04 00238 RET : 3033 


; Routine Size: 569 bytes, Routine Base: S$CODE$S + 21F0 
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MALLET SAR_SUBS ISAM MAIL MESSAGE SUBROUTINES 18-Sep-1984 99: 23: 


-Sep- 
$388 3038) ELuDon 


<= 
= 


V4.0=742 1 
:CMAIL.SRCJISUBS.B32;1 — (lf 


-EXTRN LIBSSIGNAL, SYSSUNWIND 
PSECT SUMMARY 
Name Bytes Attributes 


| 
| 
| 
| 
| 
SGLOBALS 44 weve WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS seg 8 WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 925 OVER. *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
See eee ee a ne Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; .$255$DUA28: CSYSLIBILIB.L32;1 18619 289 1 1000 00:01.4 
; ~$255$DUA28:CMAIL.OBJJMAILDEF .L32;1 457 85 18 26 00:00.4 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE)/LIS=LIS$: ISUBS/OBJ=0BJ$:ISUBS MSRC$:ISUBS/UPDATE=(ENH$: ISUBS) 
3; Size: 8883 code + 670 data bytes 
3; Run Time: 01:47.5 
3; Elapsed Time: 06:54.7 
3 Lines/CPU Min: 1693 
3 Lexemes/CPU-Min: 45905 
: pm | Used: 413 pages 
; Compilation Complete 
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